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CONFIDENTIAL PROPRIETARY INFORMATION 
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FOR SUCH USE OR DISCLOSURE CONSISTENT WITH THE PURPOSE OF THE LOAN, WITHOUT THE PRIOR WRITTEN CONSENT OF 
OATAPOINT, 
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DATAPQINT CONFIDENTIAL INFORMATION - SEE PAGE I 
MACRO^PRQCeSSOR SYSTEM MACRO ROM CODE ^ HSP/HJ8 



78JUtS0 11M4 



COMMAND LINE HASi SNAP3 185i0MACR, » , 180BMACR| APLX 

INCLUSION AJ 180ffl/MAC 

INCLUSION il HDEFIB00/TXT 

INCLUSION CJ 8DEF1800/TXT 

INCLUSION OJ ODEF1800/TXT 

INCLUSION El STRUCT/TXT 

INCLUSION Fl 1800RE8T/TXT 

INCLUSION Gt 1«0BBOOT/TXT 

INCLUSION H! ifl0^OIAG/TXT 

INCLUSION Ij 1800DSKR/TXT 

INCLUSION Jl 1800D8UG/TXT 

INCLUSION K8 1«?I?IDSPR/TXT 

INCLUSION IS 18I?0MOVI/TXT 



PROGRAM NAMEI 1800MACR 
PROGRAM ADDRESS BLOCKSl 



PRIMARY TRANSFER ADDRESSJ 
FIXED ENTRY POINTS*! 



SMACROM 


i^ieseipii 1 


SDATAS 


J5665?» 


SOEVAOR 


156698 


SK80SINI 


17l?P6i 


SDISPDDS 


17P074 


DSBLINK 


170110 


D0fFNC63 


I76!ii24 


DQSFNC67 


170i4?l 


D0SFNC68 


170154 


SREAD 


178170 


SDOSDRIV 


17!»204 


SFDSTAT 


17022?) 


$VA 


000213 


$01 


000200 


, SEEOF 


000021 


$HA 


000211 


SOS 


000100 


^ UNUSED LABELS! 


^ KEYINF 





170000 
167400 

170000 

153600 
156800 

170000 



/ABSOLUTE/ 

/8Y8IVR/ 

/8YSR0M/ 

/S08GW8/ 

/SDATAS/ 



iMACVER 


000040 


IL06DRV 


156617 


SORVNUH 


156623 


SCHARLOO 


170063 


OSCBL 


170077 


OO$FNC60 


170113 


D0SFNC64 


170127 


D0SFNC68 


170143 


O0SFNC6C 


170157 


SWRITE 


170173 


iOOIO 


170207 


»NS 


000203 


SCK 


080207 


$H 


000011 


IRU 


000023 


SNL 


000215 


SOW 


000040 



8nEB000000 CABS) 

SnE«000400 (ABS) 

SIZE«000047 CABS) 

SUE*mmS\ CABS) 

Sng«00e063 (ABS) 



SOISKBUF 

SSECTOR 

fDRVTAB 

SOSPINIT 

0SCURSE8 

D0SFNC61 

D0SFNC65 

D0$FNC69 

SSEEK 

iONLlNE 

SBUFIO 

SES 

SEEOL 

$V 

$RD 

SHU 

SMACVRS 



154000 
156620 
156624 
170066 
170102 
170116 
170132 
170146 
170162 
170176 
170212 
000003 
000022 

000013 
000024 
000223 
177777 



SDDSEXT 


156000 


STRACK 


156621 


SKEYCHAR 


170055 


IDISPLAY 


170«7l 


OSBLNKOE 


170105 


00SFNC62 


170121 


D0SFNC66 


170135 


00$FNC6A 


170151 


SSTEP 


170165 


SRESTORE 


170201 


SSTATUS 


170215 


SHO 


000224 


*BP 


000007 


SEL 


000015 


SF 


000033 


$0 


000233 
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1 


0Pti?«U 


1 


0?I0{»4PI 








laj 




uj 




mJ 




is; 




^K 




laj 


ieBPgf 


19'. 




20^ 






22; 




23. 


09109)00 


2^f 


i00etf« 


25; 


05»(?lP!0?l 


2?; 
2$; 
2^; 




0«»0f02 




3^; 
3i; 




0P!0«fffl 


32; 




33; 




34; 




35y 




36; 


&m^m 


37; 




38; 

39; 






40, 


0Pt0«!l3 


40 


0^0i0et 


43; 


0?>01l?i6 


44^ 


0000S2 



I80i MACRO RON PROGRAM -- MAIN MOOUtE 



JUN 14, 1978 



12S?!5 



HSP/HJS 



SMACROM* 


EQU 


9 






SHACVER* 


EOU 


1 


» 




W 

. 9 


HJS 


20 


JUL 


78 


. 9pJ 


HJS 


21 


JUN 


78 


, 9,1 


HJS 


14 


JUN 


78 


• 9.H 


HJS 


151 


MAY 


78 


. 9^G 


HJS 


24 


MAR 


78 


. 9,F 


HJS 


20 


MAR 


78 


. 9;e 


HJS 


16 


MAR 


78 


. 9,C 


HJS 


13 


FEB 


78 


, 9,8 


HJS 


4 


FEB 


78 


. 9. A 


HJS 


30 


JAN 


78 


pNisaei 


EQU 


2 






• 


SNAPOPT 
IIST 


6 

F 






ASCII 


EOU 









ORICSINI 


Eau 









STACKP 


cou 


i 






RAMROM 
• 


ECU 


2 






• 
ROMTYPE 


EQU 









f 











ROMCRC 



EQU 



■ 






• 

8L 

LC 


EQU 
EQU 


U 




NECP 
OPCODEBP 


EQU 
EQU 


70 

«!»52 



MACRO ROM VERSION NUMBER 
MACRO ROM REVISION LETTER 

VERSION 9 FINAL RELEASE 

FIX TWO RESTART BUGS (STL » BETA5 

FIX BUGS & ADO MORE SPACE IN CODE 

CORRECT BUGS & SETUP CRC FOR RELEASE 

ADD RIM BUFFER TEST 

ALLOW ROM TYPE 2 C38003 COPE GENERATION 

ADO NEW VECTOR, DISKETTE LOCKUP CONOITION 

FIX 'UNIfKEY' UP & COMMENTS 

CORRECT AND INSERT 'UNIVERSAL KEY80ARD' 

DISPLAY AND POR FlXyPS 

1800 PROCESSOR NUMBER (FROM INFO) 

INSURE 6600 CODE AVAILABLE 



NON-ZERO 
NONwIERO 
NON-ZERO 

ZERO •> 
ONE •> 
TWO -> 



•> ASCII KEYIN IN DEBUG 

•> ORIGIN CAPABILITIES IN DEBUG 

•> STACK PUSH/POP OP'S IN DEBUG 



ROM 

ROM 
ROM 



IN 

IN 
IN 



RAM 

RAM 
ROM 



AT 
AT 
AT 



0010000 
0120000 

0170000 



ZERO -> 1800 STANDARD MACRO.RQM 
ONE -> APF SPECIAL VERSION 
T«0 -> RIMOLL VERSION (3800) 
THREE-> CYNTHIA &/0R RIM BOOT 

SET THIS EQU TO THE CRC OF BYTES 0170000 
TO 0177774, STARTING FROM AN INITIAL *1 
PUT THE CRC IN BYTES 017777S & 6 (MSB/L8B) 

NUMBER OF BOTTOM LINE FOR DOS FUNCTION 6 
NUMBER OF LEFT COLUMN FOR DOS FUNCTION 6 

'NO ENTRY' CURSOR POSITION FOR DEBUG 
BREAK POINT OPCODE 
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OATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 

MACI?0»PR0CES8D« SYSTEM MACRO ROM CODE - HSP/HJS • 78JUL20 11144 



^5 
46. 

47' 

48 
49, 

5«; 

5 1 « 
52. 
S3'. 



GET ALL THE OfFlNITTONS 



INC 


18f?i/MAC 


INC 


MOEF180«^ 


INC 


OOEF180« 


LIST 


ml 


INC 


STRUCT 


LIST 


I 



INSTRUCTION DEFINITIONS 
MEMORY AND BIT DEFINITIONS 
DISKETTE DEFINITIONS 

STRUCTURED ASSEMBLER MACROS fFOR RIM0LL3 



( 



OATAFOIMT CONFIDENTIAL INFORMATION m SEE PAGE 1 
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MACRO-PROCESSOR SYSTEM MACRO ROM CODE * HSP/HJS m 78JU1.20 11144 
* FORKING STORAGE DEFINITIONS - 



561 
57, 

58, 
S9, 

60, 
6lJ 
62l 

64^ 
65, 
66, 

67: 

68, 
69, 
70, 

74. 
75 

76, 

78' 
79; 
80, 
81, 
82, 

83; 
84; 

85, 
86, 
871 
88, 
89, 

9i; 

92, 

93 

94. 

95; 

96, 

97, 

98, 

99. 



153600 
15360W 

I5360t!! 
153602 
153603 
153604 
153606 

153607 
153611 



005^^12 



153613 
153651 



DEFINE THE DEBUG WORKING STORAGE LOCATIONS 



SOBGWS 
SD8GWS 

2 

I 
1 
2 
I 



»r* '■■:' l.# »rif F" *r 


USE 


CURADR 


SK 


CUROUT 


SK 


CUR8TA 


SK 


MODVAL 


SK 


KEYINF 


SK 


0L0TO8 


SKIP 


QLORESS 


SKIP 


t 


IPC 


ePTLN 


EQU 




XIF 




IFS 


iPTLN 


EOU 




XIF 


8PTES 


EOU 


SPTABL 


SK 


8PTABE 

* 




IFS 


0TA8LN 


EQU 


CURORG 


SKIP 


CUR08N 


SKIP 


OTABL 


SKIP 


OPTABC 






XIF 


* 




, THE REST OF 


• 





2 
2 

ORIGINI 
10 

ORIGINI 
6 



8PTLN*BPTES 



ORIGINI 

6 

2 

1 

0TABLN*2 



LAST MEMORY LOCATION ADDRESSED 

LAST CHARACTER WRITTEN TO DEVICE 

LAST STATUS FROM A DEVICE 

LAST 'MODIFY' VALUE GIVEN 

ASCII KEVIN MODE FLAG (0«>NORMAL3 

OLO TOP OF STACK 

POINTER TO ALPHA OR BETA REGISTERS 



MAXIMUM NUMBER OF BREAKPOINTS 



MAXIMUM NUMBER OF BREAKPOINTS 

THERE ARE (3) BYTES PER ENTRY 

BREAK POINT TABLE 

END OF BREAKPOINT TABLE 



MAXIMUM NUMBER OF ORIGINS 
CURRENT ORIGIN VALUE 
CURRENT ORIGIN SELECT NUMBER 
ORIGIN TABLE 
END OF ORIGIN TABLE 



THE REST OF THE PAGE IS USED FOR OEBUG'S REGISTERS AND STACK 



IFGE 

ERR 
XTF 



$,SD8GWS+CSESAVB,AND,01775 

DEBUS WORKING STORAGE AREA TOO LARGEl 



PUT THE DATA AREA DEFINITIONS INTO THE ENTRY POINT TABLE 



154000 
156000 



SOISKBUF* EOU 
SDOSEXT* EOU 



OOSBUF 
OOSEXT 



DOS LF0*LF3 

DOS EXTENSION AREA 



PAGE 



180BMACP/TXT 



im' 




i^if 




i^2f 




103, 


156600 


li4. 


15660W 


l?S5l 




1B6-. 


156605! 


107. 


156600 


1«8, 


156603 


109. 


156605 


ua^ 


156616 


lUl 


156607 


112. 


156617 


Il3l 




im; 




115. 




116* 


156620 


117^ 


156621 


118. 




119. 


156622 


120'. 


156623 


121. 




I22y 


156624 


123, 




1241 




125, 




126, 


0001107 


127, 




128, 




129, 


000044 


130, 




i3i; 




I32l 




133, 


156644 


134, 


15666? 


135 J 


156653 


136. 




1371 




138, 




139, 




140, 




141. 





OATAPOINT CONFIDENTIAL INFORMATION m SEE PAGE I 

HACRO*PROCESSOR SVSTEM MACRO ROM COOE - HSP/HJS m 78JUL20 U:44 
- WORKING STORAGE DEFINITIONS m 

* 

, DEFINE THE DISK WORKING STORAGE MEMORY LOCATIONS 



SOATAi 



SDATAI* 



ORG 
USE 



DOSEXT+0600 
SDATAS 



EOU S 

SKIP 3 

SSAVXA SKIP 2 

SSAVBC SKIP 2 

80SKREG8 EQU S*7 

SKIP 8 

SLOGDRV* SKIP 1 
♦ 
, THE FOLLOWING TWO VARIABLES ARE ORDER DEPENDENT 



DEFINE CURRENT DATAPAGE 

* NOT USED ♦ 

TEMP HOLD FOR CXA) 

TEMP HOLD FOR C8C) 

DISK DRIVER REGISTER SAVE AREA 

CURRENT DOS LOGICAL DRIVE tINIT ml) 



SSECTOR* SKIP 1 

strack* skip 1 

Jdevadr* skip 1 

sorvnum* skip 1 

SDRVTAB* 



, CURRENT SECTOR/TRACK FOR EACH DOS LOGICAL DRIVE SSECTOR/STRACK 



CURRENT SECTOR (ORDER DEPENDENT) 
CURRENT TRACK COROER DEPENDENT) 

FLOPPY PHYSICAL DEVICE ADDRESS 
FLOPPY LOGICAL DRIVE CFOOR0/FODR1) 



SDRVTBLN eOU 

RPT 

SK IP 
SDATAL EOU 

* 

, DISPLAY DRIVER SCRIBBLE AREAS 



$DRVTBLN*1 

2 

$»SOATA» 



ROWS 
DSPREGSA 


SKIP 

EQU 

SKIP 


I --• THE 


REST 


t 


LIST 


• 


INC 



7 

S*7 
8 



.AND, MASK FOR MAX # DOS DRIVES 
LOGICAL DRIVES 0t7 

LENGTH OF VARIABLES TO BE INITIALIZED, 



"CHARLOO" WORKING AREA 

DISPLAY INTERFACE REG SAVE AREA 



1800RCST 



OATAPOINT COMFIDENTIAt INFORMATION ^ SEE PASE 1 
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MACRO-PROCESSOR SYSTEM MACRO ROM CODE • HSP/HJS - 78JUL?0 11M4 
m SYSTEM ROM INTERRUPT VECTOR m 



4.F 

elF 

7;f 

9.P 

10'F 

n,F 

12. F 
13lF 
MlF 
IS^F 
le^F 
17, F 
18, F 
19lF 

aes^F 

21, F 
22lP 
23,F 
24;f 

25, F 

26,F 
27. F 

28'F 

a9,F 

3iJf 

32;f 

33Jf 
34,F 

3S,F 
36, F 
37, F 
38,F 
39, F 
40, F 
41, F 
42,F 
43,F 
44. F 
4S1f 
46,F 
47, F 
48, F 
49, F 

salF 

51, F 
52, F 
53;f 
54. F 



17!?(SS50 
170003 



170006 
170010 

170011 
170013 
170017 

170022 
170024 

170027 
170030 

170033 
170035 



104 296 363 
104 002 364 



036 357 
343 

174 065 

046 274 036 361 

104 005 373 

111 153 
104 000 357 

253 

210 254 360 

111 153 
104 074 387 



17004<^ 111 050 000 000 



1800 MACRO RDM RESTART MODULE JUN 20, 1978 

PHY8ICALUY LOCATE THE CODE FOR THE ROM MAKING PROGRAM 



13120 



HSP/MJ8 



MACROM 
.SRPOWER 

.SRRSTRT 

,8RSY8MF 

f 
• 



.SRMEMPE 
.SRCUICKR 

.SRSTPE 

ONEMSA 



IFEQ 

SET 

LOC 

IFEQ 

ERR 

XIF 

IFEO 

SET 

IOC 

IFES 

ERR 

XIF 

IFEO 

SET 

XIF 



JUMP 
JUMP 



LD 
LEO 

SYSMOV 

OE 

JMP 

CLICKR 
JMP 

ACLATT 

ACJUMP 

CLICKR 
JMP 

EJMP 



RAMROM,f 

010000 

SYSROM 

R0MTYPE,2 

RiMwOLL MODULE WILL CAUSE ASSEMBLY ERRORS 



RAMROM,! 

0120000 

SYSROM 

R0MTYPe,2 

RIM-DLL MODULE WILL CAUSE ASSEMBLY ERRORS 



RAMROM,? 
0170000 



« 

ISRTMOUT JMP 

IFNE 



POWERUP 
RESTART 

8ESTACK>8 



OE 

SYSPAT 

MT8ETX 



SVMEMP 

3 
CLICKROM 

SVSTPAR 





TIMOUT 
l*3f8RNEXTAL 



POWER^UP ENTRYPOINT BY JUMPi 

RESTART ENTRYPOINT BY JUMP! 

SECOND FAULT DURING FAULT DETECTIONJ 
ASSUME ALL SYSTEM MEMORY & CONTROL BAD 
(SAVE BYTE » POINT INTO STACK AREA) 
(ANYWHERE WILL DO IN THE STACK) 
NOTEI DEVALUE HAPPENS TO MAKE THIS WORK 
USE STANDARD STACK AS A DEFAULT STACK 
1 RETURN ADDRESS FROM SUBROUTINE i 
TO INIT STL, BASING, & INTERRUPT VECTOR 

MEMORY PARITY ERROR CAUSES CLICK 
THEN JUMP TO THE RAM VECTOR 

SET LOUDNESS TO MAXIMUM AND 
GO TO CLICK ROM CODE 

SECTOR TABLE PARITY ERROR CAUSES CLICK 
THEN JUMP TO THE RAM VECTOR 

RAM SERVICE INTERRUPT DOES EI AND JUMP 
(USE WASTED SPACE) 

I-DECODE PROCESSOR TIMEOUT ERROR 



OATAPOINT CONFIDENTIAL INFORMATION - SEC PAGE 1 
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MACfiO-PROCeSSOR SYSTEM MACRO ROM CODE # HSP/HJS • 78JUL,20 1 1 M4 
- SYSTEM ROM INTERRUPT VECTOR m 



55.F 
56,¥ 
57yF 

58;f 

ssJf 

68!. F 



170044 


lite 


242 


372 


170047 


066 


014 




170051 


104 


055 


362 



TIMOUT 



ERR 
XIF 

CALL 

LL 

JMP 



8STATE 

TIHOUTM 

ERROR 



ROM VECTOR AODRESSINC MIS-MATCH ERROR 



(PUT HERE TO FILL THE SPACE) 
f,CT AD0RE8S OF MESSAGE 
(USING i^ASTED SPACE5 



OATAPOINT CONFIOgNTlAL INFORMATION - SEE PA5E 1 
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MACROfPROCeSSOR SySTEM MACRO ROM COOE •• H8P/HJ8 
-• JUMP VECTORS TO EXTERNALLY USABLE ROUTINES ANR 



«• 78JUL20 1U4^ 
ADDRESSES OF USEABLE TABLES 



63lF 
64. F 
65lF 
66jF 
B7,¥ 
«8Jf 
69, F 
70'.F 

7i;f 

72,E 

73:f 

74,F 
75, F 
76jF 
77'f 
78-F 
79Jf 
80, F 
81. F 

ea.F 

83lF 
84. F 
flSjF 
86. F 
87, F 
88. F 

89lF 
90,F 

92> 
93,F 

94. F 
9S'F 
96, F 
97, F 
98, F 
99. F 



I7m54 09)0 



170f5S 


104 


143 


373 


I78i6li 


104 


117 


362 


1709163 


104 


207 


362 


I70(?l66 


104 


004 


374 


170071 


104 


341 


374 


170074 


104 


337 


374 


1709177 


104 


312 


374 


170108 


104 


237 


374 


170105 


104 


221 


373 


17011?) 


104 


244 


373 


170113 


104 


077 


373 


170116 


104 


125 


373 


1781121 


104 


140 


373 


17g»l24 


104 


171 


373 


170127 


104 


177 


373 


170132 


104 


204 


373 


170S35 


104 


2tl 


373 


170140 


104 


345 


373 


170143 


104 


046 


374 


170146 


104 


105 


374 


170151 


104 


144 


374 


170154 


104 


204 


374 


170157 


104 


216 


374 



DC 

IFNE 
ERR 

XIF 



* NOT USED ♦ 

$,0170055 * MAGIC NUMBER ♦ 
JUMP VECTOR AODRESSING ERROR 1 



JUMP VECTOR TO EXTERNALLY USABLE OISPLAY / KEYBOARD ROUTINES 






iKEYCHAR* JUMP 
SKBOSINI* JUMP 



SCHARLOO* 
SOSPINIT* 
SDISPLAY* 
SOISPOOS* 

0SCBL* 
OSCURSES* 
0S8LNK0E* 
DSBLINK* 

* 

OOSFNC60* 
OOSFNCeU 

oofFNcea* 

D0$FNC63* 
00SFNC64* 
00IFNC65* 
D0iFNC66* 
0OfFNC67* 
00$FNC68* 
0OSFNC89* 
00fFNC6A* 
D0SFNC6B* 
D08FNC6C* 



JUMP 
JUMP 
JUMP 
JUMP 

JUMP 
JUMP 
JUMP 
JUMP 

JUMP 
JUMP 
JUMP 
JUMP 
JUMP 
JUMP 
JUMP 
JUMP 
JUMP 
JUMP 
JUMP 
JUMP 
JUMP 



00SF62N 
KBDSPlNi: 

CHARLOD 
08PINIT 
DISPLAY 
0ISP008 

0SPC8L 
CURSES 
BLINKOE 

BLINK 

OOSF60 
D0SF61 
D08F62 
DDSF63 
D08F64 
D0SF65 
008F66 
D0SF67 
00SF68 
00SF69 

oosFeia 
oasF6ii 

DOSF612 



DOSFUNC 6 SUB 2 WITHOUT BLINK 'OE' 
INTT OISPLAY AND KEYBOARD CONTROL INFO 

LOAD CHARACTER SET SUBROUTINE 
INITIALIZE THE DISPLAY 
1800/1500 OISPLAY ROUTINE 
OOS COMPATIBLE DISPLAY ROUTINE 

COMPUTE A DISPLAY BUFFER LOCATION 
SUSPEND THE CURSOR 
BLINK THE CURSOR AT CDE3 
BLINK THE CURSOR AT "SECPOS" 



DOS 


FUNCTION 


6 


SUBFUNCTION 





OOS 


FUNCTION 


6 


8UBFUNCTI0N 


I 


OOS 


FUNCTION 


6 


SUBFUNCTION 


2 


DOS 


FUNCTION 


6 


SUBFUNCTION 


3 


OOS 


FUNCTION 


6 


SUBFUNCTION 


4 


DOS 


FUNCTION 


6 


SUBFUNCTION 


5 


OOS 


FUNCTION 


6 


SUBFUNCTION 


6 


DOS 


FUNCTION 


6 


SUBFUNCTION 


7 


DOS 


FUNCTION 


6 


SUBFUNCTION 


8 


OOS 


FUNCTION 


6 


SUBFUNCTION 


9 


OOS 


FUNCTION 


6 


SUBFUNCTION 


10 


DOS 


FUNCTION 


6 


SUBFUNCTION 


11 


DOS 


FUNCTION 


6 


SUBFUNCTION 


12 



* NEW * 



DATAPOINT CONFIOENTIAU INFORMATION • SEE PAGE I 
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leialF 


























italF 

104, F 


















iei5,F 
i^elF 


170162 


1«4 


201 


3«5 


170165 


li4 


252 


3«5 


i07;f 


17017i 


ia4 


071 


366 


108lF 


I7fl73 


i$;4 


025 


366 


in^r^f 


170176 


lf4 


373 


365 


U0,F 


170201 


104 


230 


366 


lJ2lF 


!70204 


1§4 


310 


366 










113, F 


170207 


104 


135 


366 


1!4,F 


170212 


104 


117 


366 


USlF 

iielF 


170215 


104 


327 


365 


I7a22(;» 


143 






117, F 


I7i22l 


007 






US.F 


170222 


300 






usJf 










lae.F 










ISI^F 










122. F 










J23> 










184. F 










195. F 










jselF 










127. F 










128;.F 










isalF 










130:f 










13UF 










132,F 










133;f 










134:f 










135, F 
136:f 


















137:f 











MACRO-PROCESSOR SVSTEM MACRO ROM CODE * HSP/HJS • 78JUL20 11*44 

m JUMP VECTORS TO E^^TERNALkY USA8LE ROUTINES ANO ADDRESSES OF USEABLE TABLES 



IFLE 



ROMTYPE.l 



, JUMP VECTOR TO EXTERNALLY USABLE DISKETTE ROUTINES 



SSEEK* 

SSTEP* 

SREAO* 

SWRITE* 

SONLINE* 

SRESTORE* 

SOOSORIVt 

fDOIO* 
SBUFIO* 
SSTATUS* 
SFDSTAT* 



JUMP 
JUMP 
JUMP 
JUMP 
JUMP 
JUMP 
JUMP 

JUMP 

JUMP 

JUMP 

FOSTAT 

RET 

NOP 

XIF 

IFGE 



SSSEEK 

$$STEP 

$$REAO 

SSWRITE 

$$0NLINE 

SSRESTORE 

IfOOSORIV 

SSOOIO 

$S8UFI0 

SSSTATUS 



SEEK TO THE TRACK IN CD) 

STEP IN OR OUT 1 TRACK 

READ A SECTOR 

WRITE A SECTOR 

SEE IF DRIVE IS ON LINE 

SEEK TRACK 

CONVERT DOS DRIVE TO MICRO BUS DRIVE 

• NOT USED BY DOS - 

• NOT USED BY DOS - 

• NOT USED BY DOS - 

w NOT USED BY DOS - flNLINE CAUSE SHALL) 

CFILL TO 3 BYTE ENTRY) 



ROMTYPE.a 



JUMP VECTOR TO ERROR ROUTINE, NO USEABLE DISKETTE ROUTINES 



SSEEK* 


JUMP 


SSTEP* 


JUMP 


SREAD* 


JUMP 


SWRITE* 


JUMP 


SONLINE* 


JUMP 


SRESTORF* 


JUMP 


SDOSORIV* 


JUMP 


SDOIO* 


JUMP 


SRUFIO* 


JUMP 


SSTATUS* 


JUMP 


SFDSTAT* 


JUMP 




XIF 



ROMVERR 
ROMVERR 
ROMVERR 
ROMVERR 
ROMVERR 
ROMVERR 
ROMVERR 

ROMVERR 
ROMVERR 
ROMVERR 
ROMVERR 



SEEK TO THE TRACK IN (D) 

STEP IN OR OUT 1 TRACK 

READ A SECTOR 

WRITE A SECTOR 

SEE IF DRIVE IS ON LINE 

SEEK TRACK 

CONVERT DOS DRIVE TO MICRO BUS DRIVE 

f NOT USED 9Y DOS •» 
m NOT USED BY DOS » 
m NOT USED BY DOS m 
p NOT USED BY DOS • 



0ATAPOINT CONFIOeNTlAL INFORMATION m SEC PAGE I 
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HACRO»PROCESSOR SYSTEM MACRO ROM COOE » HSP/HJS • 78JULa0 IU44 
- AUDIO CHANNEL CONTROU COMMAND SEQUENCE FOR STANDARD SOUNDS i» 



HialF 

142 F 
143.F 
144 F 

hsJf 
i^e.F 

l47jF 

i48;f 

149'F 

150,P 
151, F 

isa^F 

l53fF 
154;f 
155,F 
XB6,r 
157, F 
ISSlF 
159;f 
160. F 
leilF 
162, F 
163. F 



17C5223 



17I?»223 260 mz 

170225 240 377 

I7?t227 §m 0i0 eiBt? BAB 077 

17?5337 238 012 



8EEPC0DC 



AUDIO CHANNEL CODE FOR A 0EEP 



170241 


240 


017 


170243 


241 


144 


17(?!245 


231 


002 


170247 


230 


006 


170251 


200 





BEEPOOl 



8EePD02 
aEEPD03 



ACST 
ACLLC 
DC 
ACOSBNZ 

ACLLC 

ACLLC 

ACDSBNZ 

ACOSBNZ 

ACHALT 



2 SET AUDIO CHANNEL STATUS 

0,255 BEEP FOR 208 MS 

00,00,00,32»63,63i63,32 1200 HZ TONE 
0. BEEPOOl 



0»15 
lil00 
l,l|EEPD03 
i»8EEPD02 



170252 260 000 

170254 077 077 i»77 077 ^77 

170261 000 000 000 000 000 

170266 040 

170267 270 



I AUDIO CHANNEL CODE FOR A CLICK 

« 



CLIKCOOE ACSI 
CLICKROM DC 
DC 

ACKIL 





63|63f63|63i63 
00, 00»00, 00.00 
32 



PAUSE FOR 150 MS 



ZERO STATUS ANO HALT 



SET AUDIO CHANNEL STATUS 

GO HIGH FOR 500 US 

GO LOW FOR 500 US 

SACK TO THE MIDDLE 

HALT WITHOUT CHANGING STATUS (FOR CLICKR) 



DATAPOINT CONFIDENTIAL INFORMATinN • SEE PAGE I 
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leelF 










1S71f 


17027D 








168, F 
169*F 


















170, F 










171, F 


170270 


104 


331 


361 


172,F 
173,F 
174, F 
175,F 
176,F 


170273 


104 


331 


361 


170276 


104 


370 


361 


170301 


104 


370 


361 


170304 


104 


000 


362 


170307 


104 


000 


362 


177, F 


170312 


104 


010 


362 


178,F 


170315 


104 


010 


362 


179, F 


170320 


104 


020 


362 


180,F 


170323 


104 


020 


362 


181, F 


170326 


104 


030 


362 


l82lF 


170331 


104 


030 


362 


183, F 


170334 


104 


040 


360 


184, F 


170337 


104 


040 


360 


185.F 


170342 


104 


050 


362 


186'F 


170345 


104 


090 


362 


187, F 


170350 


104 


045 


367 


188, F 


170353 


104 


045 


367 


189,F 


170356 


104 


040 


362 


190, F 

i9i:f 


170361 


104 


040 


362 


170364 


104 


321 


361 


192, F 
193,F 


170367 


104 


321 


361 










194, F 










195, F 










196, F 


170372 


007 






197,F 


170373 


000 


000 




198jF 


170375 


007 






199. F 


170376 


00i 


000 




200'F 
2il.F 










170400 


252 






202lF 
2e!3,F 

204,F 
205. F 


170401 


210 


223 


360 


170404 


000 


000 












170406 


252 






2ei6lF 


170407 


210 


252 


360 


207, F 


170412 


000 


000 




208, F 
209.F 










000124 









MACRO-PROCESSOR SYSTEM MACRO ROM CODE - HSP/HJS • 78JUL20 11144 
- POHER UP RAM INITIALIZATION DATA • 

VECTI 

* VERSION 2, 2200 COMPATIBLE INTERRUPT VECTOR INITIALIZATION VALUES 

MEMORY PARITY ERROR 
INPUT PARITY ERROR 
OUTPUT PARITY ERROR 
WRITE VIOLATION 
ACCESS VIOLATION 
INSTRUCTION VIOLATION 
ONE MILLISECOND 
SYSTEM CALL 
BREAK POINT 

UNASSIGNED INSTRUCTION 
SECTOR TABLE PARITY ERROR 



VECTIL 



JUMP 


MEMPAT 


JUMP 


MEMPAT 


JUMP 


INPART 


JUMP 


INPART 


JUMP 


OUTPAT 


JUMP 


OUTPAT 


JUMP 


WVIOLT 


JUMP 


HVIOLT 


JUMP 


AVIOLT 


JUMP 


AVIOLT 


JUMP 


IVIOLT 


JUMP 


IVIOLT 


JUMP 


ONEMSA 


JUMP 


ONEMSA 


JUMP 


SYSCAT 


JUMP 


SY8CAT 


JUMP 


BRKPNR 


JUMP 


BRKPNR 


JUMP 


UAINST 


JUMP 


UAINST 


JUMP 


STPART 


JUMP 


STPART 


AL VECTOR 


INITIALI 


RET 




OA 





RET 




OA 





ACLATT 


2 


ACJUMP 


SEEPCODE 


OA 





ACLATT 


2 


ACJUMP 


CLIKCODE 


DA 





EOU 


tfVECTi 



SVOISKWI • DISK WAIT* 
SV0I8PW* • DISPLAY WAITS 

SV8EEP • BEEP (0151) 
PAO OUT TO 6 BYTES 

SVCLIK w CLICK (0153) 
PAD OUT TO 6 BYTES 






( 



PAGE i3 



813,F 
214, F 
215^F 
2J6,F 
217, F 
218^F 
219yF 
220lF 

22i;f 

222^ F 
223;F 
224, F 

225,F 
226,F 
227lF 
228, F 
229,F 
230,F 
231, F 
232, F 
233,F 
234, F 
235,F 
236,F 
237, F 
238,F 
239,F 
240, F 

24i:f 

242, F 
243, F 
244, F 
245:F 
246,F 
247, F 
248,F 
249,F 
280,F 
25iJf 
2S2,F 
253,F 
254, F 
255,F 
256,F 
257, F 
258lF 
259,F 
260,P 
261, F 

262,F 
263.F 



1800MACR/TXT 



170414 



170414 
170432 

170453 
I7a47» 
170505 
170521 
170533 

170545 
170561 
170573 

170606 
170614 
170622 
170625 
170641 



170674 



052 
052 

052 
052 

052 
052 
040 



105 124 040 
105 060 040 



105 
105 
105 
105 

120 



071 

061 
002 
063 
181 



040 
040 
040 
040 
122 



052 
052 
052 

040 

040 



105 
105 
105 
111 
105 



066 
067 
070 
116 
122 



203 

203 

123 
122 



170674 


111 


170676 


353 


170677 


364 


170700 


026 


170702 


250 


170703 


310 


170704 


035 


170705 


021 



153 



254 



124 
123 

123 
115 
HI 
117 

in 



052 105 064 040 127 
052 105 065 040 101 
040 180 122 117 124 



225 
225 

124 
117 



170652 052 105 115 040 115 



OATAPOINT CONFIDENTIAL INFORMATION • SEE PAGE 1 

MACRO-PROCESSOR SYSTEM MACRO ROM CODE - H8P/HJS •» 78JU120 11*44 
m INTERRUPT VECTOR HANDLERS SET UP AT POR AND RESTART • 

# 
ERRORM 



, ERROR MESSAGES 



ROMVERM 

TIMOUTM 
SrSPRM 

STPARM 

MCHP A W 

INFARM 
OUTPAM 
MPARIT 

WVIQLM 
AVIOLM 
MPROTE 

IVIOLM 
SV8CAM 
UAINTM 
MINSTE 
MERRQR 

MERXM8G 



IFGE 

DC 

XIF 

DC 

DC 

DC 
OC 
DC 
DC 
OC 

OC 
DC 
OC 

DC 
OC 
OC 
DC 
OC 

OC 

IFNE 

ERR 

XIF 



R0MTYPE»2 

'♦EV ROM VECTOR', $NS,*MERR0R 



*ET TIMEOUT', $NS»*MERROR 
♦E0 SYSTEM RAM»,$N8,*MERR0R 

♦E9 SECTOR «,$NS,*MPARIT 
*E1 MEMORY', SNS, •MPARIT 
*E2 INPUT'. fNS,*MPARIT 
*E3 OUTPUT' 
PARITY', INS, tMERROR 

*E4 WRITE', $NS, ♦MPROTE 
♦E5 ACCESS' 
PROTECT', $NS,*MFRROR 

♦E6',SNS,*MINSTE 
♦E7«,$NS,*MINSTE 
*C8 » 

INSTRUCTION' 

ERROR* »,SE8 (AT LEAST 1 BLANK AFTER THE ♦, NO EE0L5 



'*EM MEMORY TE8T',$NS,*MERR0R USED BY 1800MOVI IF FATAL 

ERROR HAS OCCUREO i^HEN SHOULDN'T 
ERR0RM>8,S>8 
ERROR MESSAGE ADDRESSING PROBLEMS 



,ONEMSA 

\ ONE MILLISECOND • RE-ENABLE INTERRUPTS AND JUMP TO LOGICAL LOCATION ZERO 
EJMP (AT 0170037 TO SAVE SPACE) 



t 
* 

SYSPAT 

\ SYSTEM RAM FAILURE m MUST FINISH CLEARING MEMORY AND RE-INJTING TABLES 



CLICKR 

LHD 

LLE 

LC 

XRA 

L8A 

DECP 

BT 



BEFORE CAN DISPLAY ERROR MESSAGE 

MAKE NOISE THAT ERROR HAPPENED 
OE « 8VMEMP ♦ VECTIL 



256*VECTIL 
HL 



ZERO OUT THE REST OF SYSTEM RAM (167400) 
(ASSUME CAN READ WHAT WRITTEN) 



DATAPOINT CONFIDENTIAL INFORMATION • SEE PAGE I 
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264'f 










265, F 
266,F 
267, F 


170706 


106 


117 


362 










171^711 


106 


242 


372 


268, F 


170714 


066 


032 




269. F 


1755716 


104 


055 


362 


270lF 
271. F 


















272lF 










273,F 










274,F 


170721 


11^6 


242 


372 


275,F 
276,F 


170724 


006 


053 




170726 


104 


338 


361 


277, F 










278, F 


170731 


106 


242 


372 


279, F 


170734 


006 


070 




280,F 










28ilF 


170736 


115 


164 


207 


282, F 


170741 


047 






2»3;f 

284, F 


170742 


176 


044 


277 


170745 


117 


015 




285,F 
286, F 
287, F 
288, F 


170747 


176 


064 


100 


170752 


111 


047 




1707S4 


027 






170755 


117 


035 




289, F 


1707S7 


176 


064 


100 


290,F 


170768 


lU 


027 




291, F 


170764 


360 






292, F 
293, F 


170765 


104 


055 


362 










294:f 
295,F 


















296, F 










297, F 










298, F 
299, F 
3f»0,F 


















170770 


106 


242 


372 


3tli:F 
3812, F 


170773 


066 


105 




170775 


104 


055 


362 


303. F 
3i4,F 










171000 


106 


242 


372 


305,F 


171003 


066 


121 




3i6.F 


171005 


104 


055 


362 



HACPO-PROCESSOR SVSTEM MACRO ROM CODE •• HSP/HJS - 78JUL20 Ui44 
m INTERRUPT VECTOR HANOUERS SET UP AT POR AND RESTART - 



CALL 

CALL 

LL 
JMP 



KBOSPINI 

SSTATE 
SYSPRM 
ERROR 



THE REST OF THE TRAPS SIMPLY 



STPART 



* 
MEMPAT 



MSTPAT 



ROMVERR 



INPART 



* 
OUTPAT 



CALL 

LA 

JUMP 

w A win* 

LA 

OPL 

OL 

NDL 

INCP 

ORL 

DS 

OECP 

ORL 

OS 

LLA 

JUMP 

IFGf 

CALL 

LL 

JUMP 

XIF 

CALL 
LL 

JUMP 

CALL 

LL 

JUMP 



SSTATE 
STPARM 
MSTPAT 

SSTATE 
MEMPAM 

HLfOLDTOS 

RE,HL 

-l«i64 

HL i 2 

64 

BC,HL 

DE,HL 

HLf2 

64 

BC#HL 

ERROR 

R0NTVPE,2 
SSTATE 
ROMVERM 
ERROR 



SSTATE 
INPARM 
ERROR 

SSTATE 
OUTPAM 
ERROR 



INIT KEY TRANS, DISPLAY MEMORY 6 FONT 

NOW SWITCH TO DEBUG STACK 

POINT TO THE MESSAGE 

GO DISPLAY IT AND ENTER DEBUG 



SAVE THE STATE OF THE MACHINE AND GIVE A MfSSAGE 

SECTOR TABLE PARITY ERROR 

THE REST IS LIKE MEMORY PARITY ERROR 

MEMORY PARITY ERROR 

POINT L^REG TO THE MESSAGE 

SWAP THE TOP TWO STACK ENTRIES 
SO THE DISPLAY WILL BE OF THE 
BAD MEMORY LOCATION WHEN DEBUG 
IS FINALLY ENTERED 

PICK UP OLD TOSfl 
STORE OLD TOS AT TOS^l 



STORE OLD TOSfl AT TOS 

(NOTE! CODE TO INC & DEC STACK POINTER) 



ATTEMPT MADE TO USE DELETED ROM VECTOR 



5500 BUS INPUT PARITY ERROR 



5500 BUS OUTPUT PARITY ERROR 



OATAPOINT CONFIOENTIAI INFORMATION • SEE PAGE I 
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MACRO-PROCESSOR SYSTEM MACRO ROM CODE • HSP/HJS - 78JUL20 
m INTERRUPT VECTOR HANDLERS SET UP AT POR AND RESTART • 



Ut44 



307, F 

aeisjF 

3»9,F 
310, F 
3U1f 
312, F 
313,F 
314, F 
315. F 
3l6lF 

317, F 

318, F 
319,F 

320,P 
321, F 
322,F 
323,F 
324,F 
325,F 
326,F 
327, F 
328,F 
329, F 
330,F 
331, F 
332,F 
333:f 
334,F 
335,F 
336, F 
337, F 
338, F 
339,F 
340> 
34rF 
342jF 
343, F 
344. F 



171010 
171013 
171015 

171020 
171023 
171025 

171030 
171033 
171035 

171040 

171043 
171045 

171050 
171053 



171055 



106 242 372 
066 145 
104 055 302 

106 242 372 
066 161 
104 055 362 

106 242 372 

066 206 
104 055 362 

106 242 372 

066 222 
104 055 362 

106 242 372 
066 214 



WVIOtT 



* 
AVIOLT 



* 
IVIOIT 



* 
UAINST 



8VSCAT 



TIMOUT 



* 

« 

fl 

t 
* 

ERROR 

t 



CAUL 

JMP 

CAll 

JUMP 

CALL 

LL 

JUMP 

CALL 

LL 

JUMP 

CALL 
LL 

JUMP 

CALL 
JUMP 



171055 


056 


361 




171057 


046 


013 




171061 


036 


050 




171063 


313 






171064 


106 


341 


374 


171067 


076 


327 




171071 


113 


144 


207 


171074 


104 


120 


367 



ERROR DISPLAY 

LH 

LE 

LD 

LB 

LBD 

CALL 

OPL 
JMP 



8STATE 
WVIOLM 
ERROR 

SSTATE 
AVIDLM 
ERROR 

SSTATE 
IVIOLM 
ERROR 

SSTATE 

UAINTM 
ERROR 

SSTATE 
SYSCAM 
ERROR 

SSTATE 

TIMOUTM 

ERROR 



MEMPAM»8 

8L 

40 

SOhi 

DISPLAY 
CURADR>8 
DEiOLDTOS 
BRKPNN 



(SECTOR TABLE) WRITE VIOLATION 



(SECTOR TABLE) ACCESS VIOLATION 



PRIV'O INSTRUCTION VIOLATION 



UN-IMPLEMENTED INSTRUCTION VIOLATION 



SYSTEM CALL VIOLATION 



I*OECOOE PROCESSOR TIMEOUT ERROR 
(MOVED TO VECTOR POINT 8170044) 



DISPLAY ERROR MESSAGE 

ON THE BOTTOM LINE 

STARTING ON COLUMN 40 
WRITE BLANKS & 00 NOT WAIT ON DISPLAY KEY 

(SAVE A BYTE) 
DISPLAY THE MESSAGE 

CAUSE TOP STACK ENTRY 
TO BE DISPLAYED 



OATAPOINT CONFIDENTIAL INFORMATION ■ SEE PAGE I 
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347:F 
348'F 
349, F 
350,F 
3Sl,F 
352,F 
3S3,F 
354;F 
355,F 
356> 
3S7:F 
358, F 
3S9'f 
360, F 
361, F 
3S2,F 
363,F 
364, F 
365, F 
366, F 
367, F 
368 F 

369, F 
370, F 
371, F 
373, F 
373, F 
37 4, F 
375, F 
376, F 
377, F 
378,F 
379. F 
380*F 
381, F 
382;f 

383,F 
384, F 
385,F 
386,F 
387, F 
388,F 
389, F 
390, F 

39i;f 

392, F 
393lF 
394, P 
395,F 
396, F 
397, F 
398.F 



1800MACR/TXT 



171^77 
171107 
17U1J" 

171U8 
171113 
171114 
171U5 
171116 
000020 



171117 



171117 
171123 
171124 
17U2S 
171126 

171127 
17113« 
171132 
171136 
171140 
171141 
171142 
171144 
17U46 
171147 
171150 
171151 
171152 
171154 
171156 
171160 



171164 
171165 
171165 



066 
250 
340 
330 
027 

310 
026 
066 
036 
340 
021 
066 
026 
021 
353 
364 
376 
174 
006 
026 
021 



MACRO-PROCESSOR SYSTEM MACRO ROM CODE - HSP/HJS m 78JUL20 UU4 
m KEYBOARD AND DISPLAY INITIALIZATION ROUTINE & VALUES - 

* 

, UNIVERSAL KEYBOARD TRANSLATE TABLE Ci«IILL WORK ON 3600 KEYBOARD AS WELL) 



.■ 

060 061 062 063 064 UTRANT 

010 

070 071 
030 

010 

015 
056 
040 

UTRANTL 



DC 
DC 
DC 
DC 
DC 

oc 

DC 
DC 
EOU 

IFNE 

ERR 

XIF 



'01234567' 


8SP 


»89' 


CAN 


BSP 


ENTER 


'.' 


1 1 


$-UTRANT 



00S! TO 017 

UN8HIFTED KEYS 

0«'7 NUMBER PAD 

<8SP> 

8,9 NUMBER PAD 



020 TO 037 IN TABLE 
SHIFTED KEYS 
0-7 NUMBER PAD 
* UNOEFINEO * 
8>9 NUMBER PAD 



<CAN> «• SHIFTED <CAN> - UNSHIFTEO 

♦ UNDEFINED * <BSP> 
<ENT> «ENT> 

"," NUMBER PAD "," NUMBER PAD 

♦ UNDEFINED ♦ <0> (SP) 



i+l»8iUTRANT>8 

TABLE IS NOT TO CROSS PAGE BOUNDARIES 



150 056 357 



t 
* 

KBOSPINI 

, KEYBOARD DISPLAY INITI ALIIATION ROUTINE • INITS THE I^HOLE K8D/DSP SYSTEM 

i 



020 
334 



077 

020 



056 362 



015 

001 

137 



171161 106 004 374 

250 

066 216 056 363 



KBD8PILP 



HL 

A r? w 

LEA 

LDA 
DS 

LBA 

LC 

HL 

LD 

LEA 

BT 

LL 

LC 

BT 

LHD 

LLE 

INCP 
LA 
LC 
BT 

CALL 

XRA 

HL 



SEKflS2 



OE,HL 



UTRANTL 

UTRANT 

SEKTRAN>8 



UTRANT 
UTRANTL 



ZERO OUT THE KEYBOARD CONTROL BYTES 
tSEK8S2 & SEKBSn 

INIT THE TRANSLATE TABLE 

NO AUTO INCREMENT OR STOP 

SIZE OF UTRANT 

USE LOWER 040 TRANSLATE TABLE 

TO INIT THE KEYBOARD TRANSLATE TABLE 



AND AGAIN (FOR SECOND HALF5 



OE 
I 



♦ CODE FOR SPACE (040) IS ONFfpTO ONE ♦ 
REST OF TABLE IS ONE TO ONE 
DO IT THE SIMPLEST **AY 



128*-UTRANTL-UTRANTL«1 FOR THE REMAINDER 



DSPINIT 



TRIANGLE 



INIT THE DISPLAY POINTERS AND CONTROLS 
INIT THE DISPLAY FONT CODES 
FILL THE DISPLAY FONT MEMORY 



DATAPOINT CONFIOgNTlAL INFORMATION • SEE PAGE 1 
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MACRO-PROCESSOS SYSTEM MACRO ROM CODE *• HSP/HJS • 7BJiil29 1 1 M4 
- KEYBOARD AND DISPLAY INITI ALUATION ROUTINE & VALUES » 



399:f 

40iJf 

403lF 
AfSA.f 
405:F 
406> 
407. F 



I7li7l 
171172 
171174 
17117S 

171201 
I7l?i5 



158 

0514 
074 
110 

066 
016 



001 
200 
165 

272 

000 



362 

056 362 



LaocF 

AO 
CP 
JFZ 

HL 
LB 
JUMP 



I 

0200 

KBDSPILP 

SPLC8 

CURSOR 

CHARLOD 



WITH TRIANGLES FIRST 



THEN LOAO THE CHARACTERS IN THE TABLE 
STARTING WITH THE CURSOR CHARACTER 
AND RETURN FROM THERE (SAVE 3 BYTES) 



DATAPOINT CDNFIPENTIAL INFORMATION • SE€ PAGE I 
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4ia;F 

4U.F 

412;f 
413,F 

414,F 

415> 

4i6,F 

A\7ff 

418, F 
419> 
420, F 

4ai;F 

4?2'f 
423, F 
424,F 
425:F 
426,F 
427,F 
428, F 
429.F 
430*F 
43llF 
432,F 
433JF 
434, F 
435, F 
438,F 
437, F 
438, F 
439,F 
440, F 
44iJf 
442,F 
443, F 
444IF 
445,F 
446 F 
447, F 
448, F 
449,F 
450, F 
45iIf 
452, F 
4S3'P 
454JF 
455, F 

456:f 

457, F 
458, F 
459, F 
460, F 
461. F 



1808IHACR/TXT 



171207 



171207 


307 






171210 


054 


200 




171212 


053 






171213 


046 


005 




171215 


160 


223 


362 


171220 


310 






171221 


015 






171222 


307 






171223 


070 






171224 


066 


244 


056 335 


171230 


012 






171231 


327 






171232 


062 


212 




171234 


372 






171235 


015 






171236 


176 


074 


253 


171241 


110 


230 


362 


171244 


060 






171245 


015 






171246 


174 


024 


001 


171251 


110 


222 


362 



MACRO-PROCESSOR SYSTEM MACRO ROM CODE • HSP/HJ8 » 78JUL20 US44 
m LOAO CHARACTER SET ROUTINE ANO SPECIAL POR CHARACTER SET • 



CHARLOO 

ENTER: HL -> LIST OF CHARACTER FONTS TO BE lOAOEO 

THE BYTES MATCH SPECIFICATIONS FOR BYTES ON THE 5500 AND THE ROUTINE 

AUTOMATICALLY CONVERTS THEM INTO THE 1800 LOOCF INSTRUCTION FORMAT, 

THIS IS A LIST OF GROUPS OF FIVE BYTES EACH SPECIFYING A COLUMN OF 

THE FONT MATRIX, 

THE FONT ENTRIES MUST HAVE THE MSBIT CLEAR ON THE FIRST OF THE FIVE 

COLUMN FONT BYTES, 

THE ASCII CODE THE FIVE BYTES REPRESENT MUST PRECEED THEM AND THE HIGH 

ORDER BIT MUST BE SET TO MARK WHICH ASCII CODE IS BEING SPECIFIED, 

IF THE FIRST ENTRY IN THE UIST DOES NOT HAVE AN ASCII CODE, THE VALUE 

IN THE B-RES IS USED, 

IF THE ASCII CHARACTER IS THE NEXT ONE IN SEQUENQEi IT MAY BE LEFT OUT, 

THE LIST IS TERMINATEO BY A 0200, 

THEREFORE, THE ONLY WAY TO LOAO CODE 000 IS IF IT THE FIRST ENTRY IN THE LIST 

AND THE B»RE6 IS ZERO. 

EXIT: ALL REGISTERS USED EXCEPT X-REG 

ONE STACK POSITION IN ADDITION TO THE CALL USED 
ZERO CONDITION TRUE 



CHRLOP 



CHRCOL 
CHR50 



CHRROW 



171254 070 



LAM 

XR 

RTZ 

LE 
JTS 

LiA 
INCP 

LAM 

PUSH 

HL 

SRC 
LCM 

ACCC 

LMC 

INCP 

CPL 

JFZ 

POP 
INCP 
SUE 
JFZ 

PUSH 



0200 



5 
CHRGO 



HL 



HL 
ROWS 



HL 

R0WS*7 

CHRROW 

HL 
HL 
1 
CHRCOL 

HL 



GET THE LIST ENTRY 

CLEAR HIGH BIT IF SET tOR SET IT) 

STOP IF TERMINATOR (0200) REACHED 

SET THE COLUMN COUNT 

START CONVERSION IF FONT SIT NOW SET 

ELSE SAVE ASCII CHAR IN THE BwREG 
POINT HL TO THE NEXT COLUMN BYTE 

GET THE COLUMN FONT BYTE 

SAVE THE TABLE POINTER 

POINT TO TEMP GENERATION AREA 

SET CARRY FROM LSB 

SHIFT CARRY BIT IN 

POINT TO THE NEXT ROW 

CONTINUE FOR 7 ROWS 

HL i» NEXT COLUMN FONT BYTE 

LOOP UNTIL 5 COLUMNS DONE 
SAVE THE TABLE POINTER 



OATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE 1 
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462:F 
463> 

464, r 

465, F 
466lF 
467Jf 
468,F 
469, F 
470, F 
47UF 
472,F 
473, F 
474,F 
475:f 
476;F 
477, F 
478, F 
479JF 
480, F 
481, F 
488, F 
483,F 
484, F 
485, F 
486, F 
487, F 
4e8,F 
489, F 
49«,F 
49J,F 
492, F 
493,F 
494, F 
495, F 
496, F 
497, F 
498, F 
499,F 
500,F 
501, F 
502:F 
503,F 
5ii4,F 
505, F 
506, F 
507, F 
508, F 
509,F 
5i0,F 
511, F 
512, F 
513. F 



1800MACR/TXT 



171255 


066 


244 


056 


171261 


301 






171262 


155 






171263 


060 






171264 


HI 


004 


001 


171267 


104 


207 


362 



335 



171272 



71272 
71277 

71300 

71305 

71306 

71313 

71314 

71321 

71322 

71327 

71330 

71335 

71342 

71347 

71354 

71361 

71366 

71373 

71400 

71405 

71412 

71413 

71420 

71425 

71432 

71437 

71444 

71451 

71456 

71463 

71470 

71475 

71502 

71507 

71514 

71521 

71526 

71533 

71540 

71545 



177 

240 
000 

252 
024 
255 
010 
272 

000 

260 
076 
021 
043 
li2 
014 
162 
036 
100 
066 
061 
301 
077 
177 
076 
177 
177 
177 
076 
177 
000 
006 

177 
177 
177 
177 

076 
177 
076 
177 

061 



177 177 177 177 

000 000 000 000 
010 076 010 024 

010 010 010 010 
021 000 §00 000 



105 
041 
105 
101 
024 

051 
107 
111 
111 

110 
111 
101 
101 
111 
110 
101 
010 
101 
001 
010 
0il 
040 
060 
101 
110 
101 

110 
111 



lU 
177 

105 
111 
044 
121 
111 

110 

HI 
HI 

110 
HI 
101 
101 
111 
110 
101 

010 

177 

101 
024 
001 

030 

010 
101 
110 

105 
114 
HI 



121 

001 

HI 
125 
177 
121 
HI 
120 
HI 
112 

110 
111 
101 
042 
HI 
H0 
HI 
010 
101 
176 
042 
001 
040 
006 

101 

H0 
102 
112 
HI 



076 
001 
061 
042 
004 
116 
106 
140 
066 
074 

B77 

066 
042 
034 
101 
100 
056 
177 
000 
100 
101 
001 
177 
177 
076 
060 
075 
061 
106 



MACRO^PPOCESSOR SVSTEM MACRO ROM CODE - HSP/HJS m 78JU120 HI44 
» lOAD CHARACTER SET ROUTINE AND SPECIAL POP CHARACTER SET - 

LOAD THE 1800 CHARACTER 



* 



RESTORE THE TABLE POINTER 
BUMP e-RES TO NEXT ASCII CHAR 
no THROUSH THE LOOP AGAIN 



HL 


ROWS 


LAB 




LOOCF 




POP 


HL 


ADS 


1 


JMP 


CHRLOP 



SPLC8 



, SPECIAL CHARACTER SET FOR POWER UP INITIALIZATION OF THE RAM DISPLAY 



DC 

DC 
DC 
OC 
DC 
OC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
OC 
OC 
OC 
OC 
DC 
OC 
OC 
OC 
OC 
OC 
OC 
OC 
OC 
OC 
DC 
OC 

OC 
DC 
OC 
DC 
DC 
OC 
DC 
OC 



0177,0177 

' '♦0200 

0000,0000 
'*»-»'0200 

0024,0010 

'••♦0200 

001010010 

'H+0200 

0000,0021 

•0'*0200 

0076,0105 

0021,0041 

0043,0105 

0102,0101 

0014,0024 

0162,0121 

0036,0051 

0100,0107 

0066,0111 

0061,0111 

»A'+0200 

0077,0110 

0177,0111 

0076,0101 

0177,0101 

0177,0111 

0177,0110 

0076,0101 

0177,0010 

008010101 

0006,0001 

0177,0010 

0177,0001 

0177,0040 

0177,0060 

0076,010 

0177,011 
0076,010 

0177,011 
0061,011 



0177,0177,0177 

0000,0000,0000 
0076,0010,0024 
0010,0010,0010 
0000,0000,0000 



0111, 

0177, 

0105, 
0111, 
0044, 
0121, 
0111, 
0H0» 
0HH 
0111, 

0110, 

0H1, 

0101, 
0101, 
0111, 

0H0» 
0101, 
0010, 
0177, 

0101, 
0024, 

0001, 

0030, 

0010, 
0101, 
0110, 

0105, 
0114, 

0H1, 



0121, 
0001, 
0111. 
0125, 
0177, 
0121, 
0111, 

0120, 

01H, 
0112, 



0076 

0001 
0061 

0042 
0004 
0116 
0106 
0140 
0066 
0074 



0110,0077 
0111,0066 
0101,0042 

0042,0034 
0111,0101 

0110,0100 

0111,0056 
0010,0177 
0101 ,0000 
0176,0100 
0042,0101 
0001,0001 
0040,0177 

0006,0177 
0101,0076 
0110,0060 
0102,0075 
0112,0061 
0111,0106 



000 (CURSOR CHARACTER) 
040 (SPACE '- BLANK) 

t 




1 
2 
3 
4 
5 
6 
7 
8 



A 
8 
C 

E 
F 
G 
H 
I 
J 
K 
L 

M 
N 

P 
(3 
R 
S 



OATAPOJNT CONFIDENTIAL INFORHATION * SEE PAGE I 



PAtSE 2B 



SMlF 

sjelF 

5t7lF 
5l8lF 
Sl&lF 
530, F 
521, F 
582, F 
523lF 
524. F 



ia00MACR/TXT 



MACRO^PROCESSOP SYSTEM MACRO ROH CDOE • HSP/HJS * 78JULa0 11144 
• UOAD CHARACTER SET ROUTINE AND SPECIAL POR CHARACTER SET » 



1715S2 


im 


im 


177 


100 


100 


DC 


171557 


176 


0PI1 


0PI1 


801 


176 


DC 


171564 


160 


014 


093 


014 


160 


OC 


171571 


177 


002 


014 


002 


177 


OC 


171576 


143 


024 


010 


024 


143 


DC 


171003 


160 


PI If 


017 


010 


160 


OC 


17161» 


103 


105 


lU 


121 


141 


DC 


171615 


2B» 










DC 


171616 


037 


017 


007 


003 


001 TRIANSLE OC 



0100,0100,0177,0100,0100 
0176,0001,0001,0001,0176 

0160,0014,0003,0014,0160 
0177,0002,0014,0002,0177 
0143,0024,0010,0024,0143 
0160,0010.0017,0010,0160 
0103,0105,0111,0121,0141 
0200 



(•ENOt-OFp-LIST* 



037,017,807,003,001,000,000 TRIANSLE IN 1800 FORMAT 



OATAPOINT CONFIDENTIAL INFORMATION • SEE PAGE I 
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MACROwPROCESSnR SYSTEM MACRO ROM CODE • HSP/HJS •» 78JUL20 11144 
* SECTOR TABtE INITIALIZATION VALUES m 



527, F 

sssIf 

589 F 

530lF 

53i1f 

532jF 

533, F 

534'F 

535lF 

536:F 

537, F 

538:F 

539,F 

540, F 

541, F 

542,F 

543,F 

544,F 

545, F 

546'F 

547, F 

548, F 

549,F 

558, F 

SSllF 

552, F 

5S3*F 

554, F 

555,F 

556, F 

557, F 

558,F 

559, F 

5S0,F 

5«1,F 

562,F 

563,F 

564, F 

5a5,F 

5«6,F 

567, F 

568, F 

569:f 

570,F 

571, F 

572,F 

573,F 

574, F 

575, F 

576;f 



sector table initialuation values 



171625 
171626 



171627 
17163?' 
171631 
171632 
171633 
171634 
171635 
171636 
171637 
I7184i 
171641 
171642 
171643 
000015 



171644 
171645 
171646 
171647 
171650 
171651 
171652 
171653 
171654 
171655 
171656 
171657 
171660 
171661 
171662 
171663 

000037 



014 
034 



054 
074 
114 
134 
154 
174 
214 
234 
254 
274 
314 
334 
354 



015 
035 
055 
075 
115 
135 
155 
175 
215 
235 
255 
275 
315 
335 
355 
375 



SMST DC 
DC 
SMSTL EQU 



UMST 



UMSTL 



HMST 



PISTL 



DC 
DC 
DC 
DC 
DC 
OC 
DC 
OC 
DC 
OC 
DC 
DC 
DC 
EQU 



DC 
OC 
OC 
OC 
OC 
OC 
DC 
OC 

DC 
OC 
DC 
DC 
DC 
DC 
OC 

EQU 

IFNE 

ERR 

XIF 



ENCODED STL VALUE 

$»SMST<4*STAE+STWE 

J*SM8T<4*STAE+STWE 

SfSMST 



AOOR CAROtt CARO» 
150K P IgK I ■» 32K 1 
160K P 18K 1 - 32K 1 



ENCODED STL VALUE 


ADOR 




CARD** 




CARO# 


liPSMST<4+STAE+STwE 


000K 


IP 


12K 


1 


m 


32K 




S»5MST«4+STAE+STWE 


010K 


m 


12K 


2 


m 


32K 




$»SMST<4+STAE+STWE 


020K 


m 


12K 


2 


m 


32K 




$«SMST<4+STAE*STWE 


030K 


m 


12K 


2 


m 


32K 




l«SMST<4+STAe*8TWE 


04fK 


w 


12K 


3 


«• 


32K 




$»SMST«4'fSTAE+STWE 


050K 


m 


12K 


3 


m 


32K 




«-SM8T<4*STAE*STWF 


060K 


f> 


i3K 


3 


m 


32K 


2 


»»SMST<4*STAE*STWF 


070K 


m 


12K 


4 


m 


32K 


2 


l»SMST<4'fSTAE+STWE 


100K 


m 


12K 


4 


» 


32K 


2 


Sw8MST<4+STAE+STWE 


110K 


m 


12K 


4 


m 


32K 


2 


S«»8MST<4*STAE + STWE 


120K 


<■ 


12K 


5 


m 


32K 


2 


|»SMST44*STAE*STWF 


130K 


p 


12K 


5 


m 


32K 


2 


$''SMST«4*STAE + STWE 


140K 


m 


12K 


5 


m 


32K 


2 


SwUMST 
















ENCODED STL VALUE 












CARDK 


S»HMST«4+STA16+STAEi'STWE 








m 


32K 


3 


$»HMST«4+STA16+STAE+STWE 








<• 


32K 


3 


t«HMST<4+STAief8TAE+STWE 








• 


32K 


3 


$»HM8T<44.STA16 + STAE*8TWE 








■1 


32K 


3 


$*HMST<4*STA16*STAE*ST«E 








« 


32K 


3 


»-bHMST<4 + STA16 + STAE*8TWE 








• 


32K 


3 


»»HM8T<4*STA16+STAE*STWE 








• 


32K 


3 


$««HM8T<4+STA16*8TAE*STWE 








m 


32K 


3 


S»iHMST«44'8TAl6tSTAE + 8TWE 








m 


32K 




$»HMST<4+8TA16+STAE*STWE 








•» 


32K 




l»HMST<4*STA16+STAE^ 


► STWE 








m 


32K 




$pHM8T<4+8TA164.8TAE*STWE 








m 


32K 




S»»HMST<4<»-STA16+STAE*ST(riE 








m 


32K 




f»HM8T<4*STA184.8TAE'»'STWE 








m 


32K 




$«HM8T«4*8TA16-l-8TAE + STWE 








m 


32K 




S»HMST«4+STA16+STAE+STWE 








<m 


32K 




$«SMST POWER INITIALIZE 


SECTOP 


• 


$»8fSM8T»8 
















SECTOR TABLE ADDRESSING PROBLEMS 


m 


PA6E 


B( 



TABLE LENSTH 



BOUNDARY 



171664 
171665 



054 
055 



WRAPST 



OC 
DC 



2«4+8TAE+8TWE SPECIAL MEMORY SIZE TEST SECTOR TABLE 

2<4*STA16+STAe+STWe 



OATAPOINT CONFIOENTIAL INFORMATION - SES PAGE I 



PAGE {>2 



579, F 
580lF 

58l^F 
582, F 
S83lF 
584^F 
585, F 
586. F 
587*F 
588, F 
589, F 
590,F 
591, F 
592, F 
593, F 
594:f 
595,F 
596,F 
597, F 
598, F 
599. F 

etsei'F 

6«1,F 
69'2;F 
6f3,F 
6?»4,F 
605, F 
6i6,F 
607, F 
608, F 

609, F 
610, F 

611, F 
612, F 
613, F 
614, F 
615lF 
616, F 
617, F 
618, F 
619, F 
620, F 

62i;f 

622'F 
623, F 
624, F 
625, F 
686, F 
627, F 
628, F 
629, F 
630. F 



1800MACR/TXT 



171666 



71757 
71761 
71764 
71766 
71771 
71774 
71777 



MACPOf^PROCESSOR SVSTEM MACRO ROM CODE « HSP/HJS • 78JUL20 11144 
- POWER UP AND RESTART m 

* 
POWERUP 

I ZERO ALL OF MEMORY, INITIALIZE THE SECTOR TABLE. ZERO THE BASE REGISTER 



AND LOAD THE RAM DISPLAY WITH NEEDED CHARACTERS, 



171666 


040 






171667 


066 


263 


056 363 


171673 








171673 


P!26 


001 




171675 


077 






171676 


036 


000 




171700 


343 






171701 


026 


376 


016 017 


17170S 








171709 


174 


027 




171707 


113 


035 




171711 


100 


305 


363 


171714 


035 






171715 


176 


074 


225 


171720 


100 


273 


363 


171723 


066 


225 




171725 


026 


322 




171727 


062 


077 




171731 


066 


300 


056 357 


171735 


176 


065 




171737 


106 


045 


373 


171742 


106 


U7 


362 


171745 


250 






171746 


HI 


010 




171750 


074 


002 




171752 


110 


127 


367 



POWERLl 



P0WERL2 



71755 046 000 



036 
106 
036 
106 
174 
174 
110 



001 
264 
002 
264 
004 
044 
357 



POWERDCL 



366 

366 
001 

003 

363 



01 

HL 

LC 
STL 

LEO 
Bt 

OS 

OECP 

JFC 



OECP 

CPL 

JFC 

LC 
STLOC 

HL 

SYSMOV 

CALL 

CALL 

XRA 
INFO 
CP 
JFZ 

IFLE 
LE 

LO 

CALL 

UD 

CALL 

AOE 

NDE 

JFZ 

XIF 



SMST4-PISTLwl 
1 



4096«»2 

DE.fiC 

0C,2 

P0WERL2 



HL 

SMST 

POrtERLl 

SMST 



KILL INTERRUPTS 

START FROM THE LAST fl24K) ENTRY 

LOAD INTO THE ZEROTH SECTOR TABLE 
ENTRY, THE VALUE POINTED TO iY HL 

ZERO THAT SECTOR 

4K IS SECTOR LENGTH 

NOTE: ALL MEMORY MUST BE ZEROED 
BEFORE A STLOAD MOVES THE SYSTEM 
EMULATION SUPPORT AREA TO MEMORY 
WITH BAD PARITY ELSE SYSTEM DIES 

iACK TO THE NEXT SECTOR TABLE ENTRY 
CATCH OFF END OF TABLE 

LOAD THE SYSTEM RAM SECTOR TABLE 



C8EDSPBF»6, AND, 0360) tSMSTL 



ENTRIES 



SESTACK 

HL 

SETUP 

KBDSPINI 



PN1800 
DEBUG 

ROMTYPE,! 



FODR0 

TOFFTLDE 

FODRl 

TOFFTLDE 

I 

fORVTBLN>l 

POWEROCL 



SET UP THE STACK POSITION 

NOW SET UP EVERYTHING ELSE 

INIT KEYBOARD « DISPLAY INFORMATION 

GO TO DEBUG IF NOT 1800 PROCESSOR 

NO MESSAGE? CALL 8STATI S CALL lOENT MAYBE 

TURN OFF ALL THE DRIVE LIGHTS 

TURN OFF THE LIGHT IN DRIVE 

TURN OFF THE LIGHT IN DRIVE I 
INCREMENT THE DRIVE NUMBER 
CATCH ALL DRIVES DONE 

FALLS THROUGH INTO THE RESTART CODE 



DATAPOINT CONFIDENTIAL INFORMATION • SEE PAGE 1 



PAGE S3 


18S0MACR/TXT 


63l*F 










632, F 


l72Pli2 








633, F 
634, F 


















635,F 










636, F 










637, F 
638, F 


















639, F 


172002 


040 






640'f 
641, F 
642, F 
643jF 


172003 


106 


242 


372 


I72?t06 


Ul 


153 












172015) 


076 


357 




644, F 
645,F 


172012 


105 


151 




172014 


044 


003 




646, F 


172016 


074 


001 




647, F 


172PI2PI 


150 


133 


367 


648, F 
649:F 










172023 


066 


225 


056 


650, F 


172CS27 


026 


322 




651, F 


172031 


062 


077 




652, F 
653, F 


172033 


015 






172034 


100 


033 


364 


654, F 
655,F 










172037 


106 


045 


373 


656,F 










657lF 

658, F 


172042 


250 






172043 


165 






659, F 


172044 


062 


161 




660, F 


172046 


113 


161 




661, F 










662. F 










6S3lF 
664, F 


172050 


105 


150 




172052 


<S!i44 


001 




665,F 
6«6,F 


172054 


152 


U7 


362 










667, F 


172057 


106 


020 


367 


668,F 
669, F 
670, F 

67i;f 










172062 


Ul 


030 




















1421 










143, 










U4, 










145, 










146. 











MACRO-pPROCESSOR SYSTEM MACRO ROM CODE » HSP/MJS * 78JUL20 11144 
f PONER UP AND RESTART • 



RESTART 

* RESTART m INVOKED BY THE TRANSITION FROM BOTH 'RESTART' AND »RUN» KEYS 
, DOWN TO NOT BOTH DQWN. TH£ DIAGNOSTIC ROUTINE IS ENTERED 

, IF THE 'DISPLAY' KEY IS OOW^' DURING THE TRANSITION, 



363 



DISABLE INTERRUPTS 

SAVE THE MACHINE STATE 

FORCE AUDIO TO CLEAR THE CHANNEL 

SET UP THE PAGE REGISTER 
JUMP TO DEBUG IF THE "DISPLAY" KEY 
IS DOWN AND NOT "KEYBOARD" KEY 



INSURE THAT THE STACK WILL NOT MOVE 
l6i)*SMSTL 

WHEN RE-SECTORING HAPPENS IN MT8ETUP 
* DELAY HERE TO ALLOW KBD STATUS TO SETTLE 
(USES HL FOR APPROX, 40 MltLISEC DELAY) 

INIT SECTORING AND BASING 



STOP ANY COMMING IN PROGRESS 
STOP ANY TALKING IN PROGRESS 
STOP ANY DIALING IN PROGRESS 



CLEAR THE SCREEN IF THE "Fl« KEY 
IS UP, AND 
INIT FONTS AND KEYBOARD TRANSLATE TABLE 

INIT DISK VAR8 TO ALL ONES 

INSURE THAT DOS (WHATEVER) ENTERED IN ALPWA 

THE REST IS IN "1800BOOT" 

OR ITS VARIATIONS (SAVE 3 BYTES) 

,. WARNINGI THE FIRST BYTE OF THE NE)<T MODULE MUST BE LABELED "RESTIPL" 
AS THERE IS A FALL-THROUGH INTO IT TO DO THE RESTART BOOT 
FROM THE PREVIOUS MODULE. 



01 




CALL 


SSTATE 


CLICKR 




• 

LX 


8EKBS2»8 


PL 


A»SEKB81 


ND 


SEDSPKY+SEKBOKY 


CP 


SED8PKY 


JTZ 


0E8UGI 


1 

HL 


SMST 


LC 


(SEOSPBF>fi,AND, 


STLOC 




RESWAIT INCP 


HL 


JFC 


RESWAIT 


CALL 


SETUP 


IFLE 


ROMTYPE.l 


XRA 




SISTART 




SINODOUT 




8IACU0UT 




XIP 




• 

PL 


A.SEKBS2 


NO 


SEFUNCl 


CTZ 


KBDSPINI 


IFLE 


R0MTYPE,1 


CALL 


RESTD8K 


XIF 




ALPHAL 




. JMP 


RESTIPL 



147, 

148. 



IFNE 
INC 



ROMTYPE.l 
18008OOT 
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3,e 
sIg 

7fG 
S^6 
9.6 

11. 5 

isJg 

13,G 
14 G 
15^(5 

1 6.6 
UlS 
1815 
19,S 
?0,S 
21, S 
82. S 
23'G 
24, G 
25^6 
26, G 
27,6 
28.6 
29'6 
30. G 
3l^G 
32, G 
33, G 
34,G 
35, G 
36:g 
37, G 
38, G 
39,6 
40, G 
41,6 
42j6 
43,6 

^ ^ # ** 

45l6 
46,6 
47,6 
48, G 
49,G 
90. G 
SlU 
52,8 
53^6 
54.6 



1800MACR/TXT 



DATAPOINT CONFIOENTIAU INFORMATION * SEE PA6E 1 

MACRO-PROCESSOR SYSTEM MACRO ROM CODE * HSP/HJS • 78JUL2gS 11144 
<■ 18081 DISKETTE IPL RESTART ROUTINE • 



172064 



MAR 20, 1978 



16ti0 H8P/HJS 



1800 DISKETTE IPL RESTART ROUTINE 

* 

RESTIPL 

RESTART IPL ilOCK LOAD ROUTINE 

IFEO R0MTYPE»3 
IF THE KEYBOARD KEY IS DOWN AND THERE IS A RIM ON THE 1/0 BUS 

THEN LOAD THE RIM»OLL CODE INTO LOW MEMORY AND GO TO IT. ELSE 

XIF 
SCAN THROUGH THE DRIVES WAITING FOR ONE ON WITH A DISK ON LINE, 

CONTROLLER READY, AND THE DISK NOT BUSY. IF NOTHING 

WILL LOAD FROM THE CURRENT DRIVE, CHECK THE KEYBOARD STATUS 

FOR THE DISPLAY KEY BEING DEPRESSED, 

IF NOT DOWN, RESTART FROM THE TOP ALL OVER AGAIN, 

IF DOWN, SCAN TO THE NEXT DRIVE IN SEQUENCE UNTIL ALL DRIVES SCANNED, 

IF ALL DRIVES SCANNED, RESTART FROM THE TOP ALL OVER AGAIN, 



KEYBOARD KEY DOWN? 
DISPLAY KEY DOWN ALSOt 



172064 
172065 

172067 
172067 



250 
076 335 



106 H5 364 



172072 
172075 



106 
130 



102 373 
064 364 





IFEO 


R0MTYPE,3 




CALL 


DOSF60N 




JFS 


RESTNRIM 




JFP 


RESTNRIM 


• 


MLA 


♦RIMDLLS* 


RIMLOOP 


EX 

IN 
OR A 


ADR 




JFZ 


RIM800T 


• 


INCP 

LAM 

ORA 


HL 




JFZ 


RIMLOOP 


RIMWAIT 


CALL 


DOSF60N 




JTS 


RIMWAIT 




JTP 


RIMWAIT 




XIF 




• 


IFNE 


R0MTYPE,2 


RESTNRIM 


XRA 






LX 


SDATAS>8 


RESTLOOP 








CALL 


LOAOIPL 




IFEO 


R0MTYP£,3 




CALL 


BOOTCYN 




XIF 






IFNE 


R0MTYPE,2 




CALL 


OOSF60N 




JFP 


RESTIPL 



♦RIMDLLS+RIMADRL CHECK THE RIM'S TO SEE IF ANY THERE 



THERE IS AT LEAST ONE AT ITS ADDRESS 



CONTINUE TILL ALL RIMS TRIED 
WAIT FOR BOTH KEYS COMING UP 



SET UP THE PAGE REGISTER 

TRY TO LOAD THE IPL BLOCK ON DRIVE (A) 
TRY TO BOOT THE CYNTHIA DISK 



(X & B REGS NOT 0ESTROYE05 
'DSP KEY' NOT DOWN, TRY DRIVE ZERO 



DATAPOINT COMFIDCNTIAL INFORMATTON m SCR PAGE 1 
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MACROwPPOCESSOR SV8TEM MACRO RQM CODE - HSP/HJS • 78JUL2e Ui44 
» inm DISKETTE IPL RESTART RHUTINE - 



55, G 

56*6 172100 

57U I72ie(2 

58^6 172184 

SSJg 172106 

60lG 

61. G 172111 

62'.G 172112 



105 217 

§04 001 
074 010 
140 067 364 

153 

104 064 364 



PL 
AO 
CP 
JTC 


A.SLOGORV 
I 

SDRVTBLN+l 

RESTLQOP 


EX 

JMP 


CLICK 
RESTIPL 



TRY THE NEXT LOGICAL DRIVE 
IF NOT ALL TRIED 



IF ALL TRIED, THEN START ALL OVER AGAIN 



OATAPOINT CONFIDENTIAL INFORMATION m SEE PAGE I 
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MACRO-PROCESSOR SYSTEM MACRO ROM CODE • HSP/HJS - 
« 1800 mSKETTE IPL RESTART ROUTINE - 



78JUL20 1U44 



( 
( 



«3lG 
64. G 

eslG 

o7 » G 
68.6 
69^G 
70 G 
71, G 
72. G 
73'.6 
74*G 
7516 
76, G 
77, G 
78, G 
79, G 
80,G 
81. G 

82;g 

83,G 

84. G 

8S'G 

86, G 

87. G 

88lG 

89, G 

90, G 

91, G 

92, G 

93, G 

94, G 

95,G 

96, G 

97, G 

98, G 

99.G 

100, G 

l«1.6 

l02lG 

103, G 

104, G 

li5,G 

J06,G 

107, G 

108,6 

109,6 

110,6 

m,G 

112; 6 



172115 



UOAOIPt 

* LOAD THE DISK IPL BLOCK (TRACK PHYSICAL SECTOR 1) FROM DRIVE CA-REG) 



172115 
172120 
172122 
172125 

172126 
172131 

172132 
172134 
172136 
172137 
172141 
172144 
172145 

172146 
172147 
172191 
172153 
1721S5 
172157 
172161 
572163 

172164 
172165 
172166 

172167 
172171 
172172 
172174 
172176 
172177 
172200 
172201 
172202 
172203 
172204 



106 310 366 
111 143 
106 373 365 

043 



106 

043 

036 
046 
363 
056 
106 
153 
043 

047 
117 

111 
117 
062 
HI 

062 
003 

307 

260 

013 

105 
370 

174 

026 
250 
310 
021 
060 
015 
070 
007 



AND EXECUTE IF GOOD FORMAT (LS8,MSB,»L8B# ^MSB ,0) 



230 366 



000 
001 



330 
071 



366 



015 
047 

015 
254 

253 

015 



217 

070 
373 



CALL 


S5D0S0RIV 


FOSCLR 




CALL 


SSONLINE 


RTC 




CALL 


SSRESTORE 


RTC 




LD 





LR 


I 


LLD 




LH 


$0ISKBUF»8 


CALL 


SfREAO 


EX 


CLICK 


RTC 




DL 


DE,HL 


INCP 


HL,2 


OL 


BC,HL 


INCP 


HL,2 


XREC 




XROB 




INCP 


BC 


RFC 




LAM 




OR A 




RFZ 




PL 


A»$L06DRV 


LMA 




PUSH 


DE 


LC 


251 


XRA 




LBA 




BT 




POP 


HL 


INCP 


HL 


PUSH 


HL 


RET 




IFE8 


R0MTYPE,3 


INC 


1800BCYN 


XIF 





SELECT THE LOGICAL DRIVE GIVEN IN A-RES 
MASTER CLEAR ANY DRIVE IN USE ♦** 
EXIT IF DRIVE NOT ON LINE 
AND READY TO GO 

TRY TO RESTORE THAT DRIVE 
EXIT IF NOT ON LINE 

IPL BLOCK ON TRACK 

SECTOR I 
HL ■> PAGE WHERE IPL IS TO BE READ 

READ THE IPL BLOCK 

CLICK EACH ATTEMPTED READ 

EXIT IF BAD READ 

ELSE GET THE STARTING ADDRESS 

AND THE I'S COMPLEMENT 

SEE IF BC IS THE I'S 

COMPLEMENT OF DE 
TF BC IS •! (SHOULD BE) WILL SET CARRY 
EXIT IF BAD IPL FORMAT 

THE 5TH BYTE MUST BE ZERO 

EXIT IF BAD IPL FORMAT 

ELSE STORE DRIVE NUMBER THERE 

SAVE THE DESTINATION ADDRESS 
MOVE THE NEXT 251 BYTES 

FROM THE DISK BUFFER TO 

THE STARTING ADDRESS 

START EXECUTING THE IPL 
AFTER THE DRIVE NUMBER 



( 
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11315 

itsls 

U6-G 
117,6 

iielG 

119,6 

120^6 

ISllG 

122.6 

l23lG 

124,6 

125,6 

126,6 

127,5 

128,6 

129,6 

149, 

150. 

15ll 

I52l 

153, 

154. 

155, 

156; 



I8g)0MACR/TXT 
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IFGE 


R0MTVPE,2 


RIMBOOT 


DI 

XRA 

LBA 






LC 


RIMDLUNL 




LEA 






LDA 






HU 


RIMDUUS 




BT 






JMP 


mmm 


RIMOLLS 


EQU 


s 




LOC 







INC 


RIMDLL 




LOC 


* 




XIF 






XIF 




• 


IFEO 


ROMTYPEil 




INC 


18008APF 




XIF 




• 


IFEO 


ROMTYPCi 




INC 


1800OIA6 



THE DLL CODE IS MQVEO TO BOTTOM MEMORY 

FROM ITS COPY IN ROM 

AND THEN JUMPED TO, NEVER TO RfTURN 

RIM OOSf<N LINE LOAD ROUTINE 



CAiOVe WARNIN6 HOLDS FOR THIS MODULE TOOU 



DATAPDINT CONFIDENTIAL INFORMATION "• SEE PAGE 1 
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1800MACR/TXT 


3;h 










a[h 










5;h 










6,H 


172205 








7'» 










8.H 










9;h 
10.H 


















ll'.H 










isJh 










13*H 










M,H 










15'H 










16, H 










17, H 










18, H 










19,H 










20, H 










21. H 










22. H 










23lH 

24lH 




































27*H 










28, H 
29, H 


















30, H 










31*H 










32, H 


172205 


106 


112 


370 


33, H 










34'h 
35, H 


172210 


106 


004 


374 










36, H 


172213 


106 


020 


367 


37, H 


172216 


106 


157 


365 


38, H 
39,H 


172221 


224 


213 


377 207 022 










40, H 
41. H 


172236 


043 






172237 


074 


010 




42'H 

43:h 


172241 


100 


213 


364 










44, H 


172244 


106 


310 


366 


45, H 
46, H 


172247 


106 


230 


366 


172252 


140 


213 


364 


47. H 










48lH 


172255 


106 


157 


365 


49, H 


172260 


224 


124 


105 123 124 


50', H 










SllH 


172333 


043 






52, H 
53iH 


172334 


150 


031 


365 










54.H 


172337 


074 


003 





MACROwPROCESSOR SYSTEM MACRO ROM CODE - HSP/HJS • 78JUl,20 1U44 
»• 1800 FLEXIBLE DISKETTE DIAGNOSTIC • 



JUNE 8 1 1978 



10130 



HSP/HJS 



1800 FLEXIBLE DISKETTE DIAGNOSTIC 

FDIAG 

ENTERED FROM DEBUG WITH THE "12345H" COMMAND 

PERFORMS THE FOLLOWING TESTSi 

0, VERIFY m MEDIA VERIFY (SEQUENTIAL VERIFICATION OF ALL SECTORS) 
UNTIL A SECTOR CAN NOT BE READ, 

l»2', SEEK12 - ALTERNATE CYLINDER SEEK FROM 1 TO OR 2 TO I WITH REAO-VERIFY, 

3, FIND m ATTEMPTS TO FIND TRACK 38 ON A DOUBLE DENSITY DISKETTE, 
USED TO CO-RELATE ACCURACY OF TRACK FLAG, 
CONTINUOUSLY READS ANY SECTOR, 

4. ALIGN i. POSITION TO TRACK 38 AND HOLD THE HEAD DOWN 
UNTIL THE KEYBOARD KEY IS DEPRESSED, SINGLE (ANY) DENSITY 
READS WILL BE ATTEMPTED BUT THE DATA WILL NOT BE DISPLAYED, 

N0T6I • COMMANDS 0, I, 2, AND 3 

WILL WAIT AFTER EACH OPERATION 

IF THE DISPLAY KEY IS DEPRESSED'. 

THEY WILL EXECUTE CONTINUOUSLY 

UNTIL THE KEYBOARD KEY IS DEPRESSED OR 

UNTIL THE SELECTED DRIVE GOES OFF LINE, 



FDIAGOR 



CALL 

CALL 

CALL 
CALL 
DC 

RTC 

CP 

JFC 

CALL 
CALL 
JTC 

CALL 
DC 

RTC 
JTZ 

CP 



C12345 

DSPINIT 



ENTRY MUST BE '12345H' 
INIT DISPLAY POINTERS 



RESTDSK INIT ALL DRIVE CONTROLS TO ALL ONES 

FGETRSP GET THE DR|VE NUMSfR 

$H0,$VA,»1,SCK,$EE0L, 'DRIVES «i»ES 

MANUAL EXIT FROM DISK DIAGNOSTIC 
8 MUST BE 0»7 

FDIAGDR 

$$DOSDRIV 
SSRESTORE 
FDIAGDR 

FGETRSP 

SHDi'TEST 0iVFY, l;Tl-«l, 2|T2»l, 3IFND, 4SALN MES 



SELECT THE DRIVE 

AND RESTORE IT, 
CATCH DRIVE NOT ON LINE 

RET THE TEST NUMBER 



FAUTO 
3 



<0 MANUAL EXIT FROM DISK DIAGNOSTIC 

•> MEDIA VERIFY 

1 ■> SEEK BETWEEN TRACKS 1 AND 



DATAPOINT CONFIDENTIAL INFORMATION • SEF PAGE I 



AGE ?9 


180e!Hi 


kCR/TXT 


S6.H 


172341 


140 


013 


365 


172344 


150 


001 


365 


57'H 










58, H 


172347 


074 


004 




59, H 
60, H 


172351 


iia 


213 


364 










6i1h 
62, H 










172354 








63. H 










64', H 










68lH 
66, H 










172354 


036 


046 




67, H 


172356 


046 


000 




S8'h 


17236P( 


106 


201 


365 


69, H 










7<?,H 


172363 


016 


000 




71, H 


172365 


076 


335 




72, H 

73, H 


172367 


106 


135 


366 


172372 


106 


102 


373 


74, H 


172375 


120 


363 


364 


75. H 










76'.H 


172408 


007 






77lH 










78, H 
79,H 


172401 
















»0,H 










8J,H 










82, H 


172401 


036 


046 




83, H 


172403 


046 


000 




«4*H 
85, H 


172405 


106 


125 


365 


172410 


104 


001 


365 


86. H 










87lH 


172413 








88. H 










89'H 










90, H 
91, H 

92:h 

93, H 
94, H 
9S,M 










172413 


340 






172414 


334 






172415 


106 


125 


365 


172420 


113 


024 


001 


172423 


106 


125 


365 


96.H 


172426 


104 


014 


365 



MACRO-PPOCESSOR SYSTEM MACRO ROM COPE • HSP/HJS •• 78JUl,20 iU44 
• 1800 FLEXI8LE DISKETTE DIAGNOSTIC • 






JTC 
JTZ 

CP 

JF2 

JTZ 



FSEEK 
FFIND 

4 

FDIAGOR 
FALIGN 



2 «> SEEK BETWEEN TRACKS 2 AND 1 

3 ■> FIND TRACK 38 & 00 READ IT 



>4 TRY ANOTHER NUMBER 
4 »> SEEK TO TRACK 38 



FALIGN 



SEEK TO TRACK 38 AND CONTINUOUSLY READ IT 



FAUOOP 



LO 
LE 
CALL 

LB 

LX 

CALL 

CALL 

JFS 

RET 



38 


SS8EEK 

FFREAO 

$0ATA1>8 

SSOOIO 

DOSF60N 

FALOOP 



STEP TO CORRECT ALIGNMENT TRACK 
CASSUMING TRACK ZERO FLAG CORRECT) 



READ (ACCEPT ANY DATA) 

CFROM THE CORRECT PAGE IN MEMORY) 

TEST THE KEYBOARD KgY 
TO KNOW WHEN TO END 



* 
FFIND 

I FIND TRACK 38 ON A DOUBLE DENSITY DISKETTE 

t 



LD 
LE 

CALL 
JMP 



38 



FCHECKR 
FFIND 



ANY SECTOR WILL DO 

CHECK AND READ THE SECTOR 

CONTINUE TILL STOPPED 



F8EEK 

I ALTERNATE CYLINDER SEEK FROM 2 TO 1 OR FROM I TO WITH READ VERIFY 

t 



FSEEKl 



LEA 




LOE 




CALL 


FCHECKR 


SUO 


I 


CALL 


FCHECKR 


JUMP 


FSEEKl 



SAVE 2 OR I AS MARKER OF SEEK TYPE 
TRACK 2 OR I SECTOR 2 OR I 
CHECK AND READ A SECTOR 
TRACK I OR SECTOR 2 OR I 
READ THE OTHER TRACK/SECTOR 



OATAPOINT CONFIDENTIAL INFORMATION - SfE PAGE 1 
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1800MACP/TXT 


97; H 










98'H 
99. H 


172431 
















100yH 

lailH 


















icialH 
iet3,H 


172431 


036 


000 












104'H 


172433 


me 


002 




1I»5.H 










106. H 










107'H 

108, H 


















1PI91H 










110, H 


172435 


340 






lll.H 


172436 


IPI6 


125 


365 


US'.H 


172441 


140 


076 


365 


113*H 










114, H 


172444 


304 






115. H 


17244S 


004 


002 




116*.H 


172447 


074 


033 




U7*H 


172451 


140 


035 


365 


ne.H 










119'.H 


172454 


024 


033 




la^'.H 


172456 


110 


035 


365 


lailH 

182.H 










172461 


153 






183*H 


172462 


113 


004 


001 


lt4jH 


172465 


113 


074 


115 


125, H 


172470» 


140 


033 


365 


126, H 










127'h 


172473 


1514 


031 


365 


128, H 










129lH 


172476 


066 


172 


056 365 


130, H 
131. H 


172502 


046 


013 


036 062 


172506 


106 


337 


374 


1321H 


172511 


070 






133, H 










134, H 


172512 


060 






135. H 


172513 


076 


327 




136;h 
137^H 


172515 


046 


221 


036 335 


17252! 


113 


146 


200 


138. H 


172524 


007 







MACPO-PROCeSSOR SYSTEM MACRO ROM CODE • HSP/HJS m 78JUL20 11 M4 
* 1800 FUEKIBIE DISKETTE DIAGNOSTIC *• 

« 
FAUTO 

I MEDIA VERIFY - READ ALL SECTORS ON ALL TRACKS UNTIL FAULT 



FAUTO0 



FAUTOl 



FAUTOER 



FOIAGEX 



LD 
LA 



LEA 

CALL 

JTC 

LAE 
AD 
CP 
JTC 

SU 
JFZ 

EX 
ADO 
CPO 
JTC 

JMP 

HL 
DP 

CALL 
PUSH 

POP 

tx 

OE 

DPS 

RET 




2 



FCHECKR 
FAUTOER 



MAX8ECT+1 
FAUTOl 

MAX8ECT*! 
FAUTOl 

CLICK 
1 

MAXTRAK+l 
FAUTO0 

FAUTO 

FAUTOMSG 

LC+50<8+8L 

DISPOOS 



CURA0R>8 

ITRACK 

OEiCURAOR 



START AT TRACK 

START AT SECTOR 2 

iV STARTING AT 2 (AND ENDING AT SECTOR 253 

26-1 TRANSITION IN MIDDLE OF TRACK READ 

25»2 TRANSITION ACROSS TRACKS READ 

THIS GIVES MAX TIME FOR STEP TO COMPLETE 



CHECK AND READ A SECTOR 



INCREMENT THE SECTOR NUMBER 

SEE IF ,LT, 27 

DO NEXT SECTOR IF SO 

HERE A » 28 IF HALF WAY & 27 i^HEN DONE 

BACK TO BEGINNING OF TRACK CIF BACK TO 1) 



CLICK ONCE EACH TRACK (WENT BACK TO ZERO) 

INCREMENT THE TRACK NUMBER 

DO NEXT TRACK IF NOT UP TO MAXIMUM 



ELSE DO THE DISK ALL OVER AGAIN 

(CORRECT FOR POP) 

FORGET NORMAL RETURN (FROM FCHECKR) 

RETURN TO DSPCAO (RATHER THAN JUMP) 



DATAPOINT CONFIOeNTIAL INFORMATION w SEE PAGE I 



PA5f 31 


180iMi 


^CR/TXT 


139*H 

140> 










172525 








141, H 










142,H 










143.H 










144'lH 
145. H 


178525 


1^6 


102 


373 


17253« 


170 


125 


365 


146*,H 


172533 


160 


112 


365 


147'h 

i4e^H 










172536 


lf!6 


373 


365 


149. H 


172541 


140 


112 


365 


150*H 










1S1,H 


172544 


106 


201 


365 


152. H 










153. H 










154, H 


172547 


056 


320 




155,H 


172551 


106 


071 


366 


158, H 


172554 


0e!3 






157. M 


172555 


153 






158*.H 


172556 


007 






159'H 










160. H 


172557 


060 






161*H 


17256PI 


106 


337 


374 


162,H 
163, H 


172563 


f78 






172564 


106 


303 


375 


164. H 


172567 


024 


060 




165'H 


172571 


007 






166,H 










167, H 


172572 


m? 


052 


105 


168. H 










1571 










150. 










1591 










160, 










161. 











MACRO-PROCESSOR SVSTEM MACRO ROM CODE * HSP/HJS - 
- 1800 FLEXIBLE DISKETTE DIAGNOSTIC " 



FCHECKR 



78JUL20 tlS44 



READ A SECTOR CIF ABLE TO) ROUTINE 



FGETRSP 



J^ c* M» .* <5 ^ 



FAUTOMSG 



162, 
163: 
164. 



CALL 

JTP 

JTS 

CALL 
JTC 

CALL 



LH 

CALL 
RFC 
EX 

RET 

POP 

CALL 

PUSH 

CALL 

SU 

RET 

DC 

XIF 

IFEC 

INC 

XIF 

IFLI 
INC 



OOSF60N 
FCHECKR 
FOIASEX 

SSONLINE 
FDIAGEX 

$$SEEK 



SEOSPBF>fl 
SSREAO 

CLIHK 



HL 

DI8P005 

HL 

KEYCHAR 

»0t 



$BP, '*ERR*'.SfS 



R0MTVPE,2 
1800RIMT 



R0MTTPE#1 
180iOSKR 



TEST KBO/OSP KEYS CNO CURSOR TO BLINK) 

DSP KEY MEANS 'HOLD IT' 

K80 KEY MEANS 'THAT'S ALL» FOLKSJ' 

SEE IF DISK IS STILL ON-LINE 
IT ISN'T, JUST RETURN 

SEEK TO THE TRACK IN THE O-REGISTER 
BECAUSE OF CALL RESTOSK WILL 00 RESTORE 
INITIALLY CANO ALWAYS) 
READ A SECTOR INTO THE DISPLAY 
BUFFER (MUST START ON A PAGE) 

NOTE THAT ERROR WAS FOUND tOF SOME SORT) 



HL ■> MESSAGE 

DISPLAY IT 

PUT RETURN ADDRESS BACK ON STACK 

AND GET RESPONSE 

UNBIAS ASCII DIGIT 



OATAPOINT CONFIDENTIAL INFORMATION • SEE PA5E I 
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3ll 

4yl 

5« X 

e'l 

8,1 

9^1 
l!8,I 

ii;i 

12,1 

1311 
14,1 
15,1 

leji 

17,1 
18.1 
19ll 

Sl^I 

c3 • I 
24^1 
25,1 
26ll 
27.1 
2811 
29,1 
30,1 
31,1 
32:1 
33,1 
34,1 
35;! 
36.1 
37II 
38,1 
39,1 
4b'I 

41,1 
42,1 
43,1 
44,1 
45,1 
46.1 
47^1 
48,1 
49,1 
50.1 
51'. I 



1800MACR/TXT 



MACROtPROCESSOR SYSTEM MACRf? ROM CODE • HSP/WJS * 78JUL20 11144 
• 1800 DISKETTE INTERFACE ROUTINES » 



I726it 



17260J 


IM 


371 


172604 


ItiS 


221 


172606 


074 


377 


17?615> 


110 


22i 



366 



365 



172613 106 233 366 



172616 043 



172617 
17262« 
172621 

172622 
172623 
172625 
172627 

172632 

172633 

172634 
172635 

172637 
172642 

172643 
172646 



250 
223 

053 

320 

136 221 
006 040 
120 237 365 

250 

222 

320 

006 030 

106 252 365 
043 

062 024 001 
110 237 365 



172651 007 



MAY 10, 1978 



12113 



HSP/H4S 



, 1800 DISKETTE INTERFACE ROUTINES 

SSSEEK 

SEEK (MOVE HEAD) TO A TRACK 

ENTRYJ D ■ DESIRED TRACK NUMBER (0»76) 

STRACK ■ CURRENT TRACK NUMiER (ASSUMED TO BE ACCURATE) 

EXITS! AUL REGISTERS PRESERVED 

STRACK • NEW CURRENT TRACK # (ASSUMING ENTRY VALUE ACCURATE) 

CTC) ^ DRIVE OFF LINE OR RESTORE UNSUCCESSFUL 

CFC) m SEEK COMPLETED 

5 EXTRA STACK LEVELS USED (MAX) 



CALL 
PL 
CP 
JFZ 

CALL 



RTC 



SSEEKOK 


XRA 
SUD 
RTI 


t 


LCA 

PS 
LA 
JFS 


t 


XRA 


iSEEKOUT 


sue 


• 


LCA 
LA 


SSEEKLOP 


CALL 
RTC 


• 


sue 

JFZ 



RET 



SOSKSAVR 
A, STRACK 

»1 
SSEEKDK 

SRESTORX 



0, STRACK 

FOMVOT 

SSEEKLOP 



SAVE ALL REGISTERS AND LOAD X 
PICK UP LAST-KNOWN TRACK 
JUMP IF TRACK IS KNOWN 



ELSE RESTORE (DON'T SAVE REGS AGAIN) 
NOTEI THIS CALL HAS CALL BACK TO SEEK 

AT LABEL 8EEK0UT 
CATCH DRIVE OFF LINE OR BAD RESTORE 

ELSE SET THE TRACK TO ZERO 

(ACTUAL)»(DESIRED) 

DISK IS ALREADY THERE 

SAVE THE DIFFERENCE 
SAVE THE DESIRED TRACK NUMBER 
MOVE OUT TOWARD THE RIM 
IF DIFFERENCE POSITIVE 

ELSE GET 2'S COMP OF NE6 DIFFERENCF 



• INTER HERE FROM iSRESTPRE 
5 EXTRA STACK LEVELS USED (MAX) & WAIT OVERHEAD 



FOMVIN 
SSSTEP 

1 
SSEEKLOP 



AND MOVE IN TOWARD THE CENTER 

STEP IN OR OUT BASED ON A*REG 
EXIT IF DRIVE OFF LINE 

ELSE DECREMENT THE DISTANCE TO GO 
KEEP STEPPING IF NOT ZERO 

ELSE RESTORE REGISTERS AND RETURN 



A6E 33 


i80?tMACR/TXT 


5211 










53^1 


172652 








5411 










55yl 










S6,I 










57,1 










S8.I 










59ll 










60*1 










62,1 


















«3,I 










84^1 










6S'l 










66,1 










87,1 










68,1 


172658 


lf7 


203 




89,1 


172654 


116 


206 




70.1 


172656 


114 


223 




7ifl 










72,1 


172660 


111 


260 




73,1 
74:1 


172662 


105 


222 




172664 


064 


220 




75.1 


172666 


145 






76'l 










77,1 


172667 


106 


102 


357 


7811 










79ll 


172672 


105 


222 




80,1 










82,1 


172674 


111 


145 












83,1 
84,1 


172676 


301 






172677 


044 


001 




85,1 
86,1 


172701 


152 


275 


366 


172704 


140 


322 


365 


87,1 










88,1 


172707 


301 






89,1 


1727191 


044 


040 




9011 


172712 


110 


267 


365 


91,1 










92,1 


172715 


301 






93,1 
94ll 


172716 


044 


100 




172720 


054 


100 




9511 










96ll 
97,1 
98.1 


172722 


114 


206 




172724 


105 


203 




172726 


007 







OATAPOINT CONFIOENTIAL INFORMATION - SEE PAGE 1 

MACROwPRQCESSOR SYSTEM MACRO ROM CODE ' HSP/HJ8 • 78JUL20 11144 
- 1800 OlSKfTTf INTERFACE ROUTINES » 

♦ 
SiSTEP 

STEP IN OR OUT ONE TRACK 

ENTRY! A ■ OPERATION (FOMVIN/FOMVOUT) 

X ■ SDATAS>8 

SORVNUM « DRIVE NUMBER CFODR0/FODR1) 

IDEVAOR ■ MICROS-BUS AD0RE88 

EXITS! ALL RESI8TERS PRESERVED 

CTC)(FZ) • DRIVE OFF LINE 

(FC)CTZ3 - TRACK DETECTED 

(FC)CFZ) * TRACK MOT DETECTED 

I EXTRA STACK LEVELS USED (MAX) & MAIT OVERHEAD 

SAVE THE A-REGISTER 

SAVE THE BpREGISTER 

B ■ DRIVE SELECT (I OR 2) 

ONLY THE BOTTOM 2 8ITS ARE OK 

•OR' IN THE OUTPUT COMMAND 

5ET THE MICR0»8U8 ADDRESS 

•0R» IN THE MODE 



CALL THE "WAIT" ROUTINE 

GET THE BUS ADDRESS 

INPUT STATUS t« 0) 

WAIT FOR STEP TO COMPLETE 

CATCH DRIVE OFF LINE 

TURN OFF THE LIGHT AND SET 
CARRY TRUE IF OFF LINE 

WAIT IF STEP IN PROGRESS 





PS 


A.S8AVXA 




PS 


BifSAVBC*! 




PL 


8, SORVNUM 


* • • 


ND8 
0RA8 


»l*FOOR0*FODRl 




PL 


A,$DEVADR 




OR 


PCOMOO 


A 


U80UT 




SSTEPWTL 


CALL 


SVDISKWS 


• 


PL 


A,$OEVADR 


• • • 


OR 
U8IN 


FCIN8T 


t 


LA9 






NO 


FSONLN 




CTZ 


TOFFTL 




JTC 


SSTEPXIT 


• 


LAB 






ND 


FS8TIP 




JFZ 


SSTEPWTL 


• 


LA8 






ND 


F8TRK0 




XR 


FSTRK0 


S8TEPXIT 


PL 


B,fSAVBC*l 




PL 


A,$SAVXA 




RET 





ELSE SEE IF TRACK DETECTED 

EXIT FALSE CARRY TRUE ZERO IF SO 

RESTORE (63 
RESTORE fA) 
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«9,I 










172787 












l<52jl 








103:1 
lf'4,1 














l(»5'l 








imU 








15117, 1 








lP>8ll 
109.1 














H0ll 








lUji 








ll2ll 








U3ll 


172727 


022 


070 


It4-I 


172731 


076 


335 


iisli 


172733 


105 


222 


iieli 








117^1 


172735 


111 


145 


119,1 


172737 


Sfl 




119' I 


1727491 


044 


003 


180^1 

i2i;i 


172742 


074 


003 


172744 


152 


102 357 


182.1 
123*1 
124^1 
I85;i 


172747 


15SJ 


333 365 








172752 


106 


275 366 








126,1 


172755 


105 


222 


187.1 


172757 


064 


220 


I28ll 


172761 


114 


223 


129,1 


172763 


145 




iSill 


172764 


105 


222 


131,1 








132,1 


172766 


111 


145 


133,1 


17277«l 


022 


060 


134.1 


J72772 


007 





OATAPOINT CONFIDENTIAL INFORMATION - SEC PAGE 1 

MACRO"PROCeSSOR SYSTEM MACRO ROM CODE w HSP/HJS m 
m IBm DISKETTE INTERFACE ROUTINES • 

* 
SiSTATUS 

GET THE DISKETTE STATUS 



78JUL20 11144 



STATWAIT 



t • • 



NOTEl THIS ROUTINE SHOULD NOT BE CALLED IF TRANSFERS ARE STILL 

IN PROSRESS, (NORMALLY DOESN'T HAPPEN, ALL I/O INSIDE SSOOIO) 

entry': soevadr ■ micro^bus address 

sorvnum « drive number (fodr0/fodrn 



exits: 



PUSH 

LX 

PL 

OR 

UBIN 

LAB 

NO 

CP 

CTZ 

JTZ 

CALL 

PL 

OR 

PL 

UBOUT 

PL 

OR 

UBIN 

POP 

RET 



B ■ DEVICE STATUS 

I EXTRA STACK LEVELS USED (MAX) 



XA 

SDATA$>8 
A#iDEVAOR 
FCINST 



FSONLN+FSTRIP 
FSONLN+FSTRIP 
SVOISKWS 
STATWAIT 

TOFFTL 

A,$DEVADR 

FCOMOO 

8,SDRVNUM 

A, SOEVADR 
FCINST 

XA 



SAVE THE XA REGISTER PAIR 

SET UP THE PAGE REGISTER 

SEE IF THE CONTROLLER IS IN ACTION 

BY CHECKING ITS STATUS 
THIS CAUSES A WAIT ON LAST ACTION IF 

ACCIDENTLY ENTER HERE TO CHANGE DRIVES 
IF BOTH ONLINE AND TRANSFER IN PROGRESS 

ARE SET (SOMETHING GOING ONI 

WAIT (CC NOT MODIFIED) AND 

LOOP TILL ONE GOES ANAY 

THIS WILL CLEAR FSTRIP IF STILL SET 

GET THE MICRO-BUS ADDRFS8 

SET MODE TO SELECT DRIVE 
B ■ DRIVE NUMBER (FODR0/FOOR1) 

SELECT A DRIVE 
SET THE MICROi-BUS ADDRESS 

INPUT STATUS 
GET STATUS INTO C8) 

RESTORE THE XA REGISTER PAIR 



OATAPOINT CONFIDENTIAL INFORMATION * SEE PAGE I 
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135.1 
I36ll 

138,1 
139.1 
140.1 

MlU 
M2.I 

I44:i 
I45;i 
146,1 
14711 
148,1 
149,1 
I50,t 
151,1 
152,1 
153.1 
I54ll 
155,1 
156. J 
I57;i 
158,1 
I59jl 
160.1 



1800MACR/TXT 



WACP0*PR0CESSOR SYSTEM MACRO ROM CODE ' HSP/HJ$ - 78JUL20 
m 1800 mSKETTE INTERFACE ROUTINES m 



11144 



172773 



SSONLINE 

CHECK FOR DRIVE ON-LINE AND READY 

ENTRYI (SAME AS FOR «SSTATUS) 

EXITS! ALL REGISTERS PRESERVED 

CTOCFZ) - DRIVE OFF LINE OR NOT READY 
fFOCTZ) - DRIVE ON LINE AND WRITE ENABLED 
(FC)CFZ) m DRIVE ON LINE AND WRITE PROTECTED 
3 EXTRA STACK LEVELS USED (MAX) 



172773 


022 


070 




172775 


076 


335 




17S777 


lie 


206 




173001 


106 


327 


365 


173004 


301 






173005 


044 


001 




173007 


152 


275 


366 


173012 


140 


020 


366 


173015 


HI 


044 


010 


173020 


114 


206 




173022 


022 


060 




173024 


007 







PUSH 

LX 

PS 

CALL 

LAB 

ND 

CT2 

JTC 

NOB 
ONLINXIT PL 
POP 
RET 



XA 

$0ATA«>8 
6.$8AV8C+1 
SSSTATUS 

F80NLN 
TOFFTL 
ONLINXIT 

F8FPR0 

B»SSAV8C*1 

XA 



SAVE (XA) 

SAVE (B) 

GET DISKETTE STATUS 

IN THE A-REGISTER 

(DRIVE MAY BE CHANGED BY fSTATUS CALL) 
TURN OFF THE LIGHT IF NOT READY 
JUST EXIT IF NOT ON LINE 

SET FALSE ZERO IF FILE PROTECTED 
RESTORE (B) 
RESTORE (XA) 



0ATAPOINT CONFIDENTIAL INFORMATION • SEE PAGE 1 
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180(iMACR/TXT 


l6lU 










162,1 
l«3,I 


t738l25 
















164,1 










I65:i 










166*1 










l«7,I 










i6eli 

169,1 


















170.1 










I7lll 










172,1 










173.1 










174.1 










175ll 










176,1 


















178,1 


0ii007 








179.1 


000006 








1 80*. I 










leili 


17302S 


106 


371 


366 


182,1 


173030 


066 


000 




183.1 


173038 


105 


222 




184ll 










185,1 


173034 


016 


060 




186,1 


173036 


141 






187,1 


173037 


043 






188.1 










18911 


173040 


016 


090 




190,1 


173042 


141 






191,1 


173043 


043 






192,1 
193,1 
194,1 
195,1 
19611 










J73044 


174 


134 


212 


173047 


016 


050 




173051 


106 


135 


366 


173054 


110 


113 


366 


197,1 










198,1 
199, I 
200.1 


173057 


105 


211 




173061 


074 


006 




173063 


053 







MACR0--PR0CES80R SYSTEM MACRO ROM C0I3E - HSP/HJS m 78JUL20 11144 
m inm DISKETTE INTERFACE ROUTINES • 



$«VIRITE 

WRITE A SECTOR COOUSLE DENSITY) 

ENTRY! H m MSB OF MEMORY BUFFER 

■ TRACK TO BE WRITTEN 

F « SECTOR TO BE WRITTEN 

A ■ WRITE/ WRiTEwVERIFY CONTROL 

EXITSJ ALL REGISTERS PRESERVED 
STRACK ■ TRACK WRITTEN 
SSECTOR ■ SECTOR WRITTEN 

CTC3 - MISSING D,C, GAP OR CRC ERROR DURING VERIFY 
CFC) - DATA WRITTEN PROM THE PAGE POINTED TO BY H«REG 
3 EXTRA STACK LEVELS USED CMAX5 

DISK WRITE/VERIFY 
DISK WRITE • NO VERIFY 

SAVE ALL REGISTERS AND LOAD X 
INITIALIZE CD TO 0«TH BYTE 
GET THE DEVICE ADDRESS 

LOAD WRITE PREAMBLE 

CATCH OPERATION IN PROGRESS 

LOAD BUFFER DOUBLE DENSITY 

CATCH OPERATION IN PROGRESS 

RESTORE THE TRACK/SECTOR 
DO DOUBLE DENSITY WRITE 

CATCH NO O.C. GAP OR SECTOR NOT FOUND 

GET THE OPERATION CODE 
JUST EXIT TRUE ZERO FALSE CARRY 
IF NONftVERIFIED WRITE OPERATION 



D8KWV 
DSKWRT 


EQU 
EOU 


7 

6 


• 


CALL 

LL 

PL 


SOSKSAVR 


AilDEVADR 


• 


LB 

FDOATA 

RTC 


FDWPI 


• 


LB 

FDOATA 

RTC 


FDOTD 


• 


OPLR 
LB 

CALL 
JFZ 


DE»SDSKREGS«'4 
FFWRITE+FFDBL 
iSDOIO 
SOSKERR 


• 


PL 
CP 
RTZ 


A,fDSKREGS«5 
OSKWRT 



OATAPOINT CONFIDENTIAL INFORMATION •- SEE PAGE I 
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rsjULsei Uf44 



281,1 
202,1 
203,1 
284,1 
285,1 
286,1 
287,1 
288,1 
289,1 
218,1 
2llll 
212,1 
213,1 
214,1 
215,1 
216,1 
217,1 
218,1 

4* * HP jt A 

220,1 
221,1 

ffii Kt iC A '*- 

223,1 
22411 
225,1 
226' I 
227,1 
2^8, I 
229,1 
238.1 
231*1 
232.1 
23311 
234,1 
235;! 
23611 
23711 
238,1 
239,1 
248,1 
241,1 
242,1 
243,1 
244,1 
24511 
24611 
247,1 
248,1 
24911 
2S81I 
251,1 
252.1 



173864 
173866 

173871 



173108 
173103 

173186 
173187 
173111 
173112 

173U3 
17311S 
173U6 

173H7 



886 
184 



838 
188 



, 00 "WRITE^VERIFV" m RE-READ & COMPUTE CRC3 

f 



366 



A 


LA 
JMP 


FOVRD 
REAOOATA 


w 

SSREAD 







00 DOUBLE DENSITY READ/VERIFY 



173871 


186 


371 


173874 


066 


888 


173876 


886 


818 



186 
110 

318 

18S 

141 

883 



133 
113 



(S B» *r 



366 



366 
366 



086 288 

288 

087 



READ A SECTOR (DOUBLE DENSITY) 

ENTRYl H ■ MSB OF MEMORY BUFFER 
D ■ TRACK TO BE READ 
E • SECTOR TO BE READ 

EiCITSi ALL REGISTERS PRESERVED 
ITRACK ■ TRACK READ 
SSECTOR ■ SECTOR READ 

(TO » MISSING D,C, GAP OR CRC ERROR DURING READ 
(FC) • DATA READ INTO THE PAGE POINTED TO BY THE H»REG 
3 EXTRA STACK LEVELS USED (MAX) 

SAVE ALL REGISTERS AND LOAD X 
MAKE Ht •> START OF BUFFER PAGE 
CAUSE INPUT OF DOUBLE DENSITY DATA 

DO DOUBLE DENSITY READ 
CATCH SOMETHING WRONG 



GET THE DEVICE ADDRESS 

SET THE DATA CHECKING CRC 

EXIT IF DATA READ OR VERIFY OKAY 

SET CARRY TRUE 



SS8UFI0 

PERFORM AN FODATA OPERATION 

ENTRYl B ■ SU8FUNCTI0N NUMBER 

C ■ VALUE USED BY FDOATA (IF 8 ■ FDOUT) 

HL « LOCATION OF DATA AREA IN MEMORY (IF USED) 

SOEVADR ■ MICRO-BUS ADDRESS 

EXITSI X ■ MSB OF SOATAS 

A,C m SCRATCHED 

B « CHANGED (LEAST SIGNIFICANT TWO BITS) 

2 EXTRA STACK LEVELS USED (MAX) 

NOTEI li TO MAKE ROOM, MAY WANT TO TRIM THIS ROUTINE DOWN TO 





CALL 
LL 

LA 


fOSKSAVR 

8 

FDIND 


READDATA 


CALL 
JFZ 


fSOOIODR 
SOSKERR 


f 


LBA 
PL 

FODATA 
RFC 


A»SDEVADR 


SDSKERR 


LA 

ADA 

RET 


8288 



( 
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253*1 










254 I 
255^1 
256.1 


















173U7 


076 


335 




257* I 


173121 


105 


292 




258,1 


173123 


174 


070 




259,1 


173125 


070 






26011 


173126 


141 






261,1 


173127 


060 






282.1 


173130 


174 


060 




263.1 


173132 


007 






264ll 










265,1 










266,1 










267,1 










268l! 










269,1 










270,1 










271,1 










272.1 










2731 1 










274' I 
275,1 


















276.1 










277'! 










278.1 










279ll 


173133 


016 


010 




280.1 










28l'l 


173135 


107 


203 




282,1 


173137 


126 


204 




283,1 


173141 


113 


146 


205 


284,1 
285,1 










173144 


105 


222 




286,1 


173146 


124 


223 




287,1 










2881 1 


173150 


HI 


141 




289;i 
290.1 


173152 


140 


221 


366 










29111 


173155 


106 


102 


357 


292,1 


173160 


105 


222 




293;i 
294,1 
295,1 
296ll 


173162 


341 






173163 


111 


145 




173165 


301 






173166 


314 






297.1 


173167 


044 


001 




2981 1 


173171 


150 


221 


366 


299' I 










300,1 


173174 


143 






301.1 


173175 


320 






302.1 


173176 


044 


002 




3031 1 


173200 


110 


155 


366 


304ll 











OATAPOINT CONFIDENTlAt INFORMATION • SEf PAGE 1 
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SIMPLY FOOATA INSTRUCTION AND RETURN, 

I.E, ALL REGS MUST BE INITIALIZED AND NONE SAVED 



LX 


$DATAS>8 


PL 


A,SOEVAOR 


PUSH 


oe 


PUSH 


HL 


FDOATA 




POP 


HL 


POP 


DE 


RET 





00 A DISK READ/WRITE OPERATION CFOCMD) 

ENTRVJ X ■ S0ATA«>8 

i ■ SU8FUNCTI0N TO BE PERFORMED 

D ■ TRACK NUMBER 

i ■ SECTOR NUMBER 

EXITSJ ALL REGISTERS PRESERVED 

STRACK « TRACK USED (IF VALID) 

SSECTOR ■ SECTOR USED (IF VALID) 

(TZ) - OPERATION SUCCESSFUL 

CFZ) " OPERATION NOT SUCCESSFUL 

1 EXTRA STACK LEVELS USED (MAX) & WAIT OVERHEAD 



SfOOIOOR Li 



SIOOID 



SDOIOW 



FFREAD+FFD8L 



PS 


A,$SAVXA 


PS 


C,$8AVXA*l 


OPS 


OE,$SAVBC 


PL 


A,SDEVADR 


PL 


CfSDRVNUN 


FOCMD 




JTC 


SDOIOERR 


CALL 


SVOfSKwS 


PL 


A,$DEVAOR 


LE8 




UBIN 




LAB 




LBE 




NO 


FSONLN 


JTZ 


SDOIOERR 


FDSTAT 




LCA 




NO 


FRBUSY 


JFZ 


SDOIOW 



00 00U8LE DENSITY READ 

SAVE (A) 
SAVE (C) 
SAVE (DE) 

GET MICROitBUS AOORESS 

GET DRIVE NUMBER (FODR0/FODR1) 

DO THE I/O OPERATION 
CATCH SOMETHING WRONG 

00 A WAIT 

SAVE THE B-REGTSTER 

A • STATUS 

RESTORE THE B»REGISTER 

CATCH DRIVE OFF LINE 



RETURN DC ■ SECTOR/TRACK USED 

A ■ STATUS 
WAIT IF BUSY 



DATAPOINT CONFIDENTIAL INFORMATION • SEE PAGE I 
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305*1 
3»6;i 
3i7ll 
3618,1 

3e'9jl 

310^1 
311.1 
312.1 
3l3ll 
314^1 
315^1 
316,1 
317,1 
318,1 
319,1 
320,1 
321,1 
322^1 

Ocw, I 

324,1 
325,1 
326,1 
327,1 
32811 
329,1 
330,1 
331,1 
332,1 
333,1 
334,1 
335,1 
336.1 
3371 1 
338,1 
339,1 

3^0jl 
341, 1 
342,1 

343I1 
344,1 
345,1 
346,1 
347,1 
348,1 
349,1 
350.1 
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173203 
173206 


113 
062 


146 

044 


220 

004 


173211 
173214 
17321S 
173220 


113 
124 
105 

007 


144 
204 
203 


205 


173221 

173223 
173225 


111 

064 
104 


143 
001 
211 


366 



173230 



173233 


250 




173234 


107 


221 


173236 


026 


374 


173240 


106 


233 


173243 


043 





173244 026 117 



173246 
173250 
173253 
173254 

173255 
173260 



DPS 
NOC 

lOOIOXIT DPI 
PL 
PL 
RET 



OEiSSECTOR 
FRIWOX 

OE1S8AV8C 
CiSSAVXA*! 

AiSSAVXA 



ELSE SAVE THE SECTOR/TRACK USED 
EXIT TRUE ZERO IF NOT 4 INDEXES 

RESTORE (DE) 
RESTORE CO 
RESTORE (A5 



, 00 A STATUS CLEAR AND CAUSE RETURN FALSE ZERO 



•DOIOERR FD8CLR 
OR 
JMP 

* 

SSRESTORE 



I 

SOOIOXIT 



SEEK TRACK ON SELECTED DRIVE 

ENTRY! SORVNUM ■ DRIVE NUM8CR CFOOR0/FODR1 ) 
SOEVADR • PHYSICAL DEVTCE ADDRESS 

EXITSI ALL REGISTERS PRESERVED 

CTC) • DRIVE OFF LINE OR TRACK NOT FOUND 

(FC) * DISKETTE AT TRACK AND fTRACK ■ 

4 EXTRA STACK LEVELS USED (MAX) & HAIT OVERHEAD 



173230 106 371 366 



365 



006 040 
106 252 365 
043 
053 



062 
100 



024 
246 



001 
366 



173263 007 



CALL 

SRESTORX XRA 
PS 
LC 

CALL 
RTC 

LC 



SRESTORL LA 

CALL 

RTC 

RTZ 

sue 

JFC 
RET 



tOSKSAVR 



A, fTRACK 

'•4 
SSEEKOUT 



MAXTRAK*3 



FOMVOT 
$»STEP 



1 
SRESTORL 



SAVE THE REGISTERS AND SET UP X 

m ENTERED HERE FROM fSSEEK - 

SET THE TRACK NUMBER TO 

CAUSE "SEEK" TO STEP IN 4 TRACKS 

CATCH DRIVE OFF LINE 

THEN STEP OUT UNTIL TRACK 

OR THE MAXIMUM NUMBER OF TRACKS 
(♦3 AS A SAFETY OF PAST TRACK 77) 

STEP OUT 

CATCH DRIVE OFF LINE 

EXIT RESTORING REGS WHEN TRACK 

ELSE DECREMENT TRACK COUWT 
KEEP GOING IF NOT OUT OF RANGE 

ELSE EXIT TRUE CARRY FALSE ZERO 
RESTORE REGISTERS AND EXIT 



( 



PAGE 



3Slll 
352:i 

353,1 
354,1 

3S5,I 
356,1 
357,1 
358,1 
359'l 
360,1 
361.1 
362^1 
363,1 
364,1 
365,1 
366,1 
367,1 
366, I 
369,1 
370.1 
37lll 
372^1 
373.1 
374'I 
375,1 
376ll 
377,1 
378.1 
379II 
380,1 
381,1 
382,1 
383,1 
384,1 
385,1 
386,1 
387,1 
38811 
389.1 



18(?I0MACR/T!KT 



173264 



173264 


076 


335 


173266 


146 


222 


17327W 


304 




173271 


064 


220 


173273 


313 




173274 


14S 





173275 



OATAPOINT CONFIDENTIAL INFORMATION m 8E€ PAGE 1 

MACROiPROCESSOR SYSTEM MACRO ROM COOE • HSP/HJ8 * 78JUL20 ir«44 
- 1800 DISKETTE INTERFACE ROUTINES » 



TOFFTLOE 

TURN OFF THE LIGHT IN THE SPECIFIED DRIVE 

ENTRY* D « DRIVE SELECT CODE (i OR 2) 

E ■ DRIVE CONTROLLER NUMBER (0 THRU 3) 

EXITS! X ■ SDATAS PAGE 

lOEVADR ■ DRIVE CONTROLLER NUMBER 
A,S » SCRATCHED 



SET THE CONTROLLER ADDRESS 
SELECT THE DRIVE IN CD) 



FALLS THROUGH INTO "TOFFL" 





LX 


$DEVA0R>8 




PS 


EfSOeVAOR 




LAE 






OR 


FCOMQO 




LiD 






UBOUT 




t 






* 







TOFFTL 



TURN OFF THE LIGHT AND RETURN TRUE CARRY FALSE ZERO 
ALSO WILL CLEAR ALL INTERRUPTS PENDING AND 
RESET THE MASTER READ/WRITE FLIP/FLOPS 

ENTRYI X ■ SOATAI PAGE 

lOEVAOR ■ DEVICE CORIVE ALREADY SELECTED) 

EXITSi LIGHT TURNED OFF. CLEARED ALL INTERRUPTS * RESET MASTER FLOPS 
(TO fF7) 



173275 


105 


222 


173277 


064 


060 


173301 


016 


177 


173303 


145 




173304 


006 


201 


173306 


200 




173307 


007 





PL 


A,$OEVADR 


OR 


FCLEAR 


LB 


FKL0FF*FKMA8T 


UBOUT 




LA 


0201 


ADA 




RET 





{ 

c 



DATAPOINT CONFIOEI^TIAL INFORMATION • SEE PACE 1 
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MACRO-PROCESSOR SYSTEM MACRO ROM COOE • HSP/HJS m 
- Ifl00 I5ISKETTE INTERFACE ROUTINES • 



78JUU80 11144 



173310 106 371 366 



390,1 

391.1 173310 

392ll 

393I1 

394:1 

395,1 

396.1 

397*1 

399-1 

399,1 

400,1 

401,1 

40all 

403,1 

404,1 

405,1 

406,1 

407,1 

408,1 

409,1 

410' I 

41111 

412,1 

413,1 

414,1 

415:1 

416,1 

417,1 

418,1 

419,1 

420,1 

421.1 

422* I 

423,1 

424,1 

428,1 

426,1 

427,1 

428.1 

429^1 

430,1 

431,1 

432,1 

433,1 

434,1 

435:1 

436,1 

437:1 

438.1 



173313 


105 


207 


173315 


044 


007 


173317 


310 




173320 


105 


217 


173322 


271 




173323 


053 




173324 


056 


335 


173326 


200 




173327 


140 


343 366 


173332 


044 


016 


173334 


068 


224 


173336 


017 




173337 


113 


144 220 


173342 


027 




173343 


116 


217 


173345 


066 


294 


173347 


301 




173350 


200 




173351 


017 




173352 


%47 




173353 


113 


146 220 


173356 


Ul 


032 


173360 


006 


001 


173362 


014 


000 


173364 


107 


223 


173366 


lie 


222 


173370 


007 





S$D08DRIV 

SWAP IN DOS UOaiCAU DRIVE INFO, 

ENTRYJ A ■ DOS LOGICAL DRIVE NUMBER C0f73 

EXITSJ ALL REGISTERS PRESERVED 

•LOGORV ■ SELECTED LOGICAL DRIVE C0 THRU 75 

STRACK 1 CURRENT TRACK FOR THAT DRIVE 

S8ECT0R » CURRENT SECTOR FOR THAT DRIVE 

SDRVNUM ■ DRIVE SELECT CODE (1 OR 2) 

SOEVAOR 9 DRIVE MICRO-BUS ADDRESS (0, 1, 2, OR 33 

2 EXTRA STACK LEVELS USED (WAX) 

SAVE THE REGISTERS AND SET UP X 

GET THE A*REGISTER SACK 

LIMIT TO THE MAXIMUM DRIVE NUMBER 

SAVE THE DRIVE NUMBER IN e»REG 

GET CURRENT DOS LOGICAL DRIVE NUMBER 
EXIT RESTORING REGISTERS 

IF SAME DRIVE AS LAST TIME 

SET UP THE H-REGISTER 
GENERATE INDEX INTO iORVTAB 
CATCH NO CURRENT DRIVE 

MAKE SURE SLOGDRV VALUE GOOD 
INDEX INTO THE S0RVTA9 TABLE 

GET CURRENT SSECTOR/STRACK 
SAVE IT IN THE SORVTAB ENTRY 

SAVE THE NEW LOGICAL DRIVE NUMBER 
INDEX INTO THE SORVTAB 



(CARRY WILL BE CLEARll AFTER THIS) 
GET THE SSECTOR/STRACK FOR NEW ORIVg 
STORE IT INTO THE CURRENT SSECTOR/STRACK 

DIVIDE IT BY TWO & L88IT TO CARRY 
A • RIGHT HAND DRIVE IF CARRY CLEAR 
A « LEFT HAND DRIVE IF CARRY SET 
SAVE THE DRIVE SELECT 
AND SAVE THE MICRO*BUS ADDRESS 
RESTORE REGISTERS AND EXIT 





CALL 


SOSKSAVR 


• 


PL 


A,S0SKREG8*7 




ND 


SORVTBLN 




LBA 




• 


PL 

CP8 

RTZ 


AiSLOGORV 


t 


LH 
ADA 


$DRVTA8>8 




JTC 


*DO8OF0 


t 


ND 


$DRVTBLN<1 




LL 


SDRVTAB 




INCP 


HL,A 




OPL 


0E,»8ECT0R 




08 


OE,HL 


SOO8DF0 


PS 


8, SLOGDRV 




LL 


SDRVTAB 




LAB 






ADA 






INCP 


HL,A 




OL 


DE,HL 




DPS 


DE,SSECTOR 


• 


SREB 






LA 


FOOR0 




AC 


FODRl-FOORl 




PS 


A, SDRVNUM 




PS 


8,1DEVADR 




RET 





OATAPOINT CONFIDENTIAL INPORMATION w SEE PAGE I 
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MACRO^PROCESSOR SVSTEM MACRO ROM CODE " HSP/WJS - 78JUL20 Ul44 
« 1800 DISKETTE INTERFACE ROUTINES • 



439.1 
440 I 
441,1 
442,1 
443,1 
444,1 
445,1 
446,1 
44711 
448.1 
44»;i 
450,1 
451,1 

493,1 
454,1 
455,1 
456,1 
457.1 
458', I 
459*1 
460,1 

481.1 
462ll 
463 I 
464,1 
465,1 
466,1 
467,1 
468,1 
469,1 
470,1 
471,1 
472:i 

473.1 

474*1 

165, 

166. 

1671 

160, 

1691 

170, 

171, 

172, 

173, 

174; 

175, 
176. 



173371 



173411 



1734H 
173415 
173417 

173420 



173420 
173422 
173427 
173430 
173432 
173434 
173435 
173436 
173437 



173440 



SDSKSAVR 

t 



DISK ROUTINE REGISTER SAVE ANO PAGE REGISTER SET UP 

1 STACK UEVEL ADOITIONAULY CREATED 



173371 


051 


216 


335 


173374 


055 






173375 


022 


060 




173377 


022 


060 




173401 


051 


011 


367 


173404 


022 


070 




173406 


076 


335 




173410 


007 







PUSH 

REGS 

POP 

POP 

PUSH 

PUSH 

LX 

RET 



SOSKREGS 

XA 

XA 

SOSKRESR 

XA 

$DATA$>6 



GET RID OF «$DSKREGS" ADR ON THE STACK 

XA « RETURN ADDRESS 

MAKE RETURNS AFTER THIS GO TO "SDSKRESR" 

PUT RETURN ADR BACK ON THE STACK 

SET UP THE PAGE REGISTER 



006 

066 
335 
046 
026 
250 
310 
021 
007 



SOSKRESR 



066 216 056 335 
111 055 

007 



, RESTORE THE DISK ROUTINE REGISTERS AND EXIT 

HL S0SKRE68 

REGL 

RET 

RESTOSK 

I SET ALU DISK CONTROL VARIABLES SO ALL DRIVES MUST BE INITIALIZED (RESTORED) 



377 

200 066 335 370 

201 
043 



10 000 000 000 000 



LA 

MSA 

LOH 

LE 

LC 

XRA 

LpA 

BT 

RET 

XIF 

IFEQ 

RPT 

DC 

XIF 

IFEO 

RPT 

DC 

XIF 

INC 



*$DATAS 

SOATAl+l 
$DATAL»1 



INITIALIZE ALL THE DISK VARIABLES 
TO ALL I'S 



ROMTYPE,0 

05 



R0MTYPE#2 
0330 



1800O8UG 



(MAKE SPACE HERE SO LAST ROMS THE SAME) 



(MAKE SPACE HERE SO LAST ROMS THE SAME) 



( 
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l800Ni 


kCR/TKT 


3;j 










4, J 










s*J 










6W 


173445 








7' J 










8, J 










9,J 










t0,J 


173445 


106 


242 


372 










12. J 


173450 


111 


124 


207 


13' J 
14,J 


173453 


174 


047 




173455 


174 


035 




15,J 
16,4 


173457 


866 


211 


056 


173463 


117 


015 




17, J 


173465 


176 


074 


251 


18, J 


173470 


150 


120 


367 


19,J 










20, J 


173473 


307 






21, J 


173474 


ilS 






22#J 


173475 


274 






23,J 
2414 
25,J 


173476 


110 


063 


367 










173581 


307 






26, J 
27, J 


17350a 


273 






173503 


110 


§63 


367 


28, J 
29, J 
30, J 










1735C?6 


015 






173507 


307 






31, J 


173510 


174 


370 




32.J 


173512 


174 


027 




33* J 
34,J 
35,J 


173514 


035 






173515 


006 


377 




173517 


370 






36,J 
37jj 


173520 


113 


146 


200 


173523 


151 






38. J 


173524 


104 


133 


367 


39lj 
4»W 

4i;j 










173527 
















42, J 










43,J 










44, J 
45,J 


173527 


040 














46.J 


173530 


106 


242 


372 



DATAPOIMT CONFIDENTIAL INFORHATION w SEE PAGE 1 

- HSP/HJS - 78JUL20 11144 



MACRO»PROCESSOR SYSTEM MACRO ROM CODE 
-. DEBUG ENTRY • 



1800 DEBUG COMMAND INTERPRETER 



327 



8RKPNR 






I BREAK 


POINT EXECUTION ENTRY 


f 


CALL 


SSTATE 


• 


LX 


CURA0R»>8 




DPL 


8C»0LDT0S 




OL 


OE,BC 




OECP 


DE 




HL 


BPTA8L»8PTES 


8RKPNL 


INCP 


HLf2 




CPL 


8PTA8E 




JTZ 


BRKPNN 


t 


LAM 


HL 




INCP 


HL 




CPE 






JFZ 


BRKPNL 


• 


LAM 
' CPO 


HL 




JFZ 


BRKPNL 


t 


INCP 


HL 




LAM 


HL 




LMA 


OE 




OS 


OE,BC 




OECP 


HL 




LA 


-I 




LMA 




BRKPNN 


OPS 


DE,CURADR 




EX 


BEEP 


* 
DEBUG 


JMP 


DSPCAO 






I RETURN 


FROM DEBUG 


"CALL" ENTRY 


• 


DI 




• 


CALL 


SSTATE 



JUN 14, 1978 



12S00 



HSP/HJS 



SAVE THE STATE OF THE MACHINE 
INIT THE PAGE REGISTER (BY SSTATE) 
GET THE BREAK POINT ADDRESS 



SEARCH TABLE FOR ADDRESS 

BUMP MEMORY POINTER TO NEXT ENTRY 

STOP WHEN AT END OF TABLE 



ELSE SEE IF ADDRESSES MATCH 



RESTORE CONTENTS IF MATCH FOUND 



UPDATE TOS ENTRY WITH BP LOCATION 
CLEAR THE BREAK POINT 



DISPLAY THE POINT AS CURRENT ADDRESS 
MAKE SOME NOISE 
THEN GO TO DEBUS 



MAKE SURE INTERRUPTS WON'T BOTHER ME 
INTERRUPTS MAY BE ON AFTER THE 'CALL' 
SAVE THE MACHINE STATE 
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OATAPOINT CONFIDENTIAL INFORMATION - SEf PAGE t 

MACR0«PR0CESSOR SYSTEM MACRO ROM CODE -» HSP/HJS • 78JUUge» 11144 
• DEBUG ENTRY • 



47'J 

48jj 
49, J 
5»*J 
SIW 
52^J 
53, J 
54. J 
55'. J 



173533 



* 
DEBUG I 

\ ENTRY FROM "RESTART" INVOCATION 

f 



KEYIN8 



IFS 
XRA 
PS 
XIF 



ASCII 

AjKfYlNF 



CLEAR ASCII KEYIN MODE 

SET ASCII KEYIN MODE FLAG TO A*REG 
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OATAPOINT CONFIOENTTAU INFORMATION m SEE PAGE I 

MACRO-PROCESSOR SYSTEM MACRO ROM CODE • HSP/HJS if 78JUL20 1 1 U4 
DEBUG COMMAND INTERPRETER 



58.J 
69^J 
60, J 

8UJ 
62, J 
63,J 
64,J 
65. J 
66* J 

ealj 

69jj 
70p 
7UJ 
72;j 
73,J 
74U 
75,J 
76.J 

79;j 

«0lj 

82 • ti 
83. J 
84lj 
»5jj 
86. J 
87* J 
88, J 
89!.J 
90, J 
91, J 
92. J 
93;j 
94, J 
95.J 
96', J 
97, J 
98,J 
99,a 
100. J 



173533 



173533 076 327 



D8PCA0 

! PUT UP OESUG "CURRENT ADDRESS" DISPLAY 



173535 


046 


010 




173537 


111 


124 


200 


173542 


062 


070 




173544 


106 


154 


372 


173547 


060 






173550 


070 






173551 


016 


040 




173553 


327 






173554 


046 


011 




173556 


036 


HI 




173560 


106 


312 


374 


173563 


371 






173564 


015 






173565 


111 


027 




173567 


066 


003 




173571 


106 


156 


372 


173574 


060 






173575 


HI 


%ii7 




173577 


046 


il2 




173601 


106 


154 


372 


173604 


051 


133 


367 



LX 


CURA0R>8 


IFS 


ORIGINI 


OPL 


0E,CUR0R6 


IA£ 




ORO 




UE 


8U«4 


to 


73 


CTZ 


D08F69 


OPU 


OEiCURORG 


OPL 


BCCURAOR 


SUEC 




S808 




LAE 




ORO 




UE 


8L#4 


CFZ 


0SP0C6 


XIF 




IE 


BL-3 


OPU 


8C#CURA0R 


PUSH 


BC 


CAUL 


0SP0C6 


POP 


HL 


PUSH 


ML 


UB 


040 


LCM 




UE 


8L«2 


uo 


73 


CAUL 


OSPCBU 


UM8 




INCP 


ML 


OS 


BC,HL 


UL 


3 


CAUL 


OSPOCR 


POP 


HL 


DU 


8C,HU 


UE 


BU»1 


CAUU 


0SP0C6 


PUSH 


08PCA0 



SET UP THE PAGE REGISTER (SAFTEY) 

OE ■ CURRENT ORIGIN 

SET ZERO CONOX IF ORIGIN EOUAUS ZERO 

ERASE 4TH TO BOTTOM LINE 

IF ORIGIN IS ZERO 
tERASE TO ENO OP LINE) 
OE ■ CURRENT ORIGIN 
BC ■» CURRENTUY A0ORES8E0 SUOT 
COMPUTE THE PHYSICAU ADDRESS 



DISPLAY THE UOGICAU ADR ON 4TH TO BOTTOM 
UINE IF CURRENT ORIGIN IS NOT ZERO 

DISPUAY THE PHYSICAU ADDRESS ON 

THE 3RD TO THE BOTTOM LINE 
SAVE THE PHYSICAL ADDRESS 

RESTORE THE ADDRESS 
LEAVE IT ON THE STACK 

GET THE BYTE TO BE OUTPUT 



CWRITE CHARACTERS IN BC»REGS) 



PUT OUT BLANK, CHARACTER, BUANK 
DISPLAY THE CHARACTER VALUE 
(B CLOSE ENOUGH TO FOR OSPOCR OF 35 
RESTORE THE ADDRESS OF THE ITEM 
DISPLAY THE 6 DIGIT CONTENTS 
ON THE NEXT TO BOTTOM LINE 



DATAPOINT CONFIDENTIAL INFORMATION « SEE PAGE 1 
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102W 

104 J 
105. J 

im.j 

109^J 
U0-J 
lU.J 
112.4 
U3lJ 
114,J 
U5;j 
U6.J 
ll^lJ 
IIS^J 
I19yj 



180eiHACR/TXT 



MACRO-PROCESSnp SYSTEM MACRO ROM CODE » HSP/HJS • 78JUtJ?i U 144 
DEBUG COMMAND INTERPRETER 



180; 



121, J 
122,J 

124^J 
125,J 
126,4 
127l4 
18S,4 

129l4 
130*4 
131^4 
132.4 
I33l4 
134,4 
13S;4 
136, a 
137, J 
13S,4 
13914 

uaU 

141, J 
142,4 
143,4 
144,4 
145.4 



173607 



173607 


046 


013 


J73613 


086 


000 


173615 


312 




173616 


062 


070 


173680 


106 


303 


173623 


062 


060 


173625 


i76 


327 



173627 
173631 
173634 
173636 
173641 
173643 
173646 
173650 
173653 
173655 
I7366i 
173662 
173665 
173667 
173672 
173674 
173677 
173701 
173704 
17371PI 
173712 
173715 
173721 
173723 



074 
150 
074 

150 
074 

150 
074 

150 
074 
150 
074 
150 
074 
150 
074 
140 
074 
100 
066 
B74 
140 
066 
074 
140 



015 
247 

030 
207 
010 
131 
077 
071 
056 
340 
136 
324 
043 
066 
101 
150 
173 
150 

133 
326 
040 
141 
150 



036 106 



375 



370 



367 



370 



372 

370 
370 
371 
370 

370 

056 

367 

056 

370 



367 



367 



«r 




6ETCMD 




I GET THE NEXT 


COMMAND FROM THE K 


• 

OE 


NeCP<8«».BL 


uc 





int 




GETCML PUSH 


8C 


CAtL 


KEVCHAR 


POP 


BC 


LX 


CURA0R>8 


IFS 


ASCII 


PL 


LfKEYINF 


ORLL 




4FZ 


KEYINA 


XIF 




W 

, CHECK FOR SPECIAL COMMAND CHARA 


• 

CP 


ENTER 


4TZ 


NEWADR 


CP 


CAN 


4TZ 


GETCMO 


CP 


8SP 


4TZ 


BACKSP 


CP 


'?• 


4TZ 


IDENT 


CP 


'.' 


4TZ 


MOOINC 


CP 


»Al 


4TZ 


HODAGN 


CP 


•#«' 


4TZ 


8PCLR 


CP 


'A' 


4TC 


SETDIG 


CP 


' ' + 1 


4FC 


GETOIG 


HL 


-'AUl + CMDTS 


CP 


'Z'*l 


4Te 


DOCMDL 


HL 


•»• '<1+CMDTN8 


CP 


1 • 


4TC 


GETOIG 



GET THE COMMAND LINE CURSOR POSITION 
ZERO THE COMMAND VALUE ACCUMULATOR 

SAVE THE COMMAND VALUE SO FAR 

GET CHAR FROM KEYBOARD FLASHING CURSOR 

RESTORE THE COMMAND VALUE 80 FAR 

SET UP THE PAGE REGISTER (SAFTEY) 



CATCH BEING IN ASCII KEYIN MODE 
ENTER ASCII CHARACTER IF SO 

?S 

DECODE THE COMMAND 

CANCEL COMMAND IF CANCEL KEY 

BACKSPACE ONE IF BACKSPACE KEY 

CATCH IDENTIFICATION INQUERY 

MODIFY AND INCREMENT 

MODIFY AND INCREMENT USING LAST VALUE 

U m CLEAR ALL BREAK POINTS 

RESTORING VALUES 

TRY TO ACCUMULATE OCTALS IF NQT LETTERS 

(LOWER CASE nn 

HI. m> COMMAND LETTER TABLE 
BASED ON SHIFT CASE 

fLOWER CASE 'A»3 



DATAPOINT CONFIDENTIAL INFORMATION • SEE PAGE I 
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146, a 
147. J 
148. J 
149lj 
150, J 
ISllJ 
152W 
1S3.J 
lS4;j 
155. J 
156lj 
157^J 
158. J 
159'. J 
160, J 
161, J 
162,J 
163lJ 
l«4;j 
16S* J 
166, J 
I67;j 
168, J 
169,J 
170, J 
171. J 
172;j 
173,J 
174,J 
175:j 
176,J 
177, J 

179, J 
180, J 
181, J 
182, J 
183,J 
184, J 
185, J 
186, J 
187, J 
188, J 
189,J 
190,J 
191, J 

isalj 

193,J 
194, J 
l95lJ 
196. J 
I97;j 



1800HACR/TXT 



173726 



173742 



173744 
173746 
17375? 
173752 

173754 
173756 



MACRO-PROCESSOR SVSTEM MACRO ROM CODE - HSP/HJS m 78JU|,20 11144 
DEBUG COMMAND INTERPRETER 

* 
DOCMDL 

I INDEX INTO THE ADDRESS TABtE POINTED TO BY (HL) 



AND JUMP OFF TO THE INDICATED AD0PE8S, 



173726 


zm 


173727 


017 


17373«^ 


057 


173731 


f70 


173732 


012 


173733 


U5 164 211 


173736 


113 074 106 


173741 


007 



173762 
173764 



ADA 
INCP 
OL 
PUSH 

SRC 
OPU 
CPO 
RET 



HU t A 

HL,HL 

HL 

HLfOLOREGS 
NECP 



INDEX INTO THE GIVEN TABLE 

8Y THE COMMAND LITTER 

SET UP TO JUMP TO THE COMMAND 

RESTORE THE COMMAND LETTER 
HL ■> REGISTER STORAGE 

SET TRUE ZERO IF NO DIGITS ENTERED 



* 
CMDTNS 



, UNSHIFTED COMMAND ROUTINE ADDRESS TAPLE 



173742 200 371 



004 371 

360 371 

257 370 

326 371 



200 

200 



37i 

371 



173760 205 364 



211 
373 



370 

371 



IFNE 

DA 

XIF 

IFEO 

DA 

XIF 

DA 

DA 

DA 

DA 

IFNE 

DA 

DA 

XIF 

IFEO 

DA 

DA 

XIF 

IFED 

DA 

XIF 

IFEO 

DA 

XIF 

IFEQ 

DA 

XIF 

IFEO 

DA 

XIF 

DA 

DA 

IFS 



R0MTYPE,3 
ADROEV 

R0MTYPE»3 
GETCME 

8PSET 

CALL 

OECADR 

EXECUT 

R0MTVPE,3 

ADRDEV 

ADRDEV 

ROMTYPE.S 

GETCME 

GETCME 

ROMTYPE,0 
FDIAG 

ROMTYPE.l 
APFDMP 

ROMTYPE.a 
TSTRIM 

R0MTYPE,3 
GETCME 

INCADR 

JUMP 

ASCII 



A » ADDRESS THE GIVEN OR LAST I/O DEVICE 

A - * NOT USED * (5500 I/O BUS) 

B » SET A BREAK POINT AT GIVEN OR CURADR 
C *" CALL THE GIVEN OR CURRENT ADDRESS 
- DECREMENT THE CURRENT ADDRESS 
f. - CONTINUE EXECUTION 

F - FETCH NEXT DATA BYTE FROM CURRENT I/O 
G - GOTO DATA MODE IN THE CURRENT I/O 



F w • NOT USED * (5500 I/O BUS) 
G - ♦ NOT USED * (5500 I/O BUS5 



H • HARDWARE FLOPPY DIAGNOSTIC 

H • APF MEMORY DUMP 

H - EXTERNAL RIM BUFFER TEST 

H * * NOT USED * (HARDWARE DIAGNOSTIC) 

I - INCREMENT THE CURRENT ADDRESS 

J • JUMP TO THE GIVEN OR CURRENT ADDRESS 



OATAPOINT CONFIDENTIAL INFORMATION m SEE PAGE 1 
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MACRO«PROCESSOR SYSTEM MACRO ROM HOOE " HSP/NJS m 78JUL20 11844 
DEBUG COMMAND INTPRPRETER 



( 
C 



m'j 








199. a 








zm.j 








201. J 


173766 


125 


370 


202*4 
2»3W 








173770 


233 


370 


204.4 


173772 


343 


370 


25l5yJ 








2516, J 
207p 














208. J 








209. J 








210* J 


173774 


125 


370 


211.4 


173776 


125 


370 


212,J 








213,4 
21414 








174000 


133 


371 


215,4 








216,4 


174002 


160 


371 


217.4 








218l4 








219.4 








220'4 
221.4 














222l4 


174004 


120 


371 


223,4 
224,4 


174006 


357 


370 


174010 


360 


375 


225,4 
226,4 
227,4 


174012 


314 


371 








174014 


273 


371 


228,4 


174016 


247 


371 


229.4 


174020 


254 


371 


230*4 


174022 


261 


371 


231,4 


174024 


266 


371 


232.4 








233*4 
234,4 
23514 




















236,4 








237.4 








238'4 








239.4 









DA 
XIF 

IFC 

DA 

XIF 

DA 

DA 

JFS 

DA 

DA 

XIF 

IFC 

DA 

DA 

XIF 

IFNE 

DA 

DA 

XIF 

IFEO 

DA 

DA 

XIF 

DA 

DA 

OA 

DA 

IFNE 

DA 

DA 

DA 

DA 

DA 

XIF 

IFEQ 

DA 

OA 

DA 

OA 

OA 

XIF 



KEYINH 

ASCII 
GETCME 

LINK 

MODIFY 

ORIGINI 

NOSAOR 

ORIGIN 

ORIGINI 

GiTCME 

GETCME 

R0MTYPe,3 
BASSET 

STLOAO 

R0MTYPE,3 

GETCME 

GETCME 

REGMOO 

STACKO 

TSTMgM 

EXEUSR 

R0MTYPE,3 

0UTXC4 

OUTXWT 

OUTXCl 

0UTXC2 

0UTXC3 

R0MTYPE,3 

GETCME 

GETCME 

GETCME 

GETCME 

GETCME 



K m SET ASCII KEYIN MODE 



K - ♦ NOT USED ♦ (ASCII KEYIN) 

L f LINK TO ADR POINTED TQ BY CURADR 
M - MODIFY THE CURRENT ADDRESS CONTENTS 

N - SET NON^OFFSET ADDRESS 
* CLEAR OR SELECT ORIGIN 



N f * NOT USED * (ORIGIN OFFSET) 
i. « NOT USED • (ORIGIN SELECT) 



P •• DISPLAY BASE REGISTER 

OR LOAD WITH BC - 0100080 
-» LOAD THE SECTOR TABLE 



P • * NOT USED * (BASE REGISTER) 
•» * NOT USED * (SECTOR TABLE) 

R * SWITCH ALPHA/BETA REGISTER MODE 
S - DISPLAY THE SPECIFIED STACK ITEM 
T - START MEMORY TEST ('12345T') 
U «» USER MODE EXECUTE 



V 

X 
Y 
Z 



V 

\)i 
X 
Y 

z 



EX COM4 TO LAST I/O DEVICE 

EX WRITE TO LAST I/O DEVICE 

EX COMl TO LAST I/O DEVICE 

EX COM2 TO LAST I/O DEVICE 

EX COM3 TO LAST I/O DEVICE 



w ♦ NOT 
f ♦ NOT 
•« ♦ NOT 
■• * NOT 
m * NOT 



USED 
USED 
USED 
USED 
USED 



(550i 
(5500 
(5500 
(5500 
(5500 



I/O 
I/O 
I/O 
I/O 
I/O 



BUS) 
BUS) 
BUS) 
BUS) 
BUS) 
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240. J 

241, J 
242'j 

24314 
244* J 
245-J 
246, J 
247, J 
248, J 
249,J 
250. J 
2Si1j 
292, J 
253,a 
254,J 
2S5,J 
256,J 
257. J 
258',J 
259lj 
2«0'.J 

2«r.j 

262lJ 
263, J 
264,4 
265.4 
26614 
267^4 
268.4 
2691 4 
270,4 
271.4 
272l4 
273.4 
274l4 
275,4 
276,4 
277,4 
278,4 
279,4 
280,4 
261,4 
282,4 
283.4 
2841 4 
285.4 
286l4 
287,4 
288, 4 
289.4 
290*4 
291.4 
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MACRO-PROCESSOR SYSTEM MACfiO ROM COPE • HSP/H4S - 784UU2i 11S44 
OESUS COMMAND INTERPRETER 



174026 



174026 


310 


370 


174030 


303 


370 


174032 


302 


370 


174034 


305 


370 


174036 


304 


370 


174040 


301 


370 


174042 


125 


370 


174044 


307 


370 


174046 


321 


371 


174050 


037 


372 


174052 


125 


370 


174054 


306 


370 


174056 


125 


370 


174060 


125 


370 



174062 
174064 



125 370 
133 371 



174066 125 370 



174070 
174072 


125 
125 


370 
370 


174074 

174076 
174100 
174102 
174104 


125 
125 
125 
125 
311 


370 
370 
370 
370 
370 


174106 
174110 


235 
242 


371 
371 



CMOTS 


» 


, SHIFTED COMM 


• 


OA 


DA 


DA 


OA 


OA 


OA 


OA 


DA 


OA 


OA 


DA 


DA 


OA 


OA 


IFS 


OA 


XIF 


IPC 


OA 


XIF 


IFNE 


DA 


XIF 


IFEQ 


OA 


XIF 


OA 


IFS 


OA 


DA 


XIF 


IFC 


DA 


OA 


XIF 


OA 


OA 


DA 


DA 


DA 


IFNE 


OA 


OA 


XIF 


IFEQ 


DA 


OA 



RE6A 

REG8 

REGC 

REGD 

REGE 

REGF 

GETCME 

REGH 

EXECUI 

TSTOSP 

GETCME 

REGL 

GETCME 

GETCME 

ORIGINI 

ORIGIM 

ORIGINI 
GETCME 

R0MTYPE»3 
BASSET 

R0MTyPE,3 

GETCME 

GETCME 
STACKP 
STACKR 
STACKS 

STACKP 
GETCME 
GETCME 

GETCME 

GETCME 

GETCME 

GETCME 

REGX 

R0MTYPE,3 

OUTXST 

OUTXOA 

R0MTYPE,3 

GETCME 

GETCME 



A 

8 
C 
D 
E 
F 
G 
H 

I 

4 

K 

L 

M 

N 



P 

Q 

R 
S 



R 
S 

T 
II 
V 

X 

Y 
7 



REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
CONDITION 



DISPLAY 
DISPUAY 
DISPLAY 
DISPLAY 
DISPLAY 
FLAGS DISPLAY 



* NOT USED * 
REGISTER DISPLAY 

tE' COMMAND WITH EI/RET 
DISPLAY TEST 

♦ NOT USED * (KEYBOARD TEST) 
REGISTER DISPLAY 

♦ NOT USED ♦ 

* NOT USED * 



- MODIFY SELECTED ORIGIN 



f. ♦ NOT USED * (ORIGIN MODIFY) 



P * DISPLAY BASE REG OR LOAD HITH C 



♦ NOT USED ♦ (BASE REGISTER) 

* NOT USED ♦ 

STACK ROLL 
STACK STUFF 



* NOT USED ♦ (STACK ROLL? 

* NOT USED ♦ (STACK STUFF) 

* NOT USED * (PSEUDO RANDOM MEM TEST) 

* NOT USED ♦ 

* NOT USED * 

* NOT USED * 
REGISTER DISPLAY 



EX STATUS 
EX DATA 



Y f. ♦ NOT USED ♦ (5500 I/O BUS) 
I • * NOT USED * (5500 I/O BUS) 



PAGE 50 



180f'MACR/TXT 



DATAPOINT CONFIDENTIAL INFORMATION • SEE PAGE I 

MACRO^PROCESSOR SVSTEM HACRO ROM CODE - HSP/HJS • 78JUL20 11144 
DEBUS COMMAND INTERPRETER 



292, J 

293. J 

294-J 

295yJ 

296W 

297lj 

298, J 

299W 

300* J 

3^1. J 

3?»2,J 

3{I3:j 

3a4lJ 

305, J 

306, J 

307, J 

30S,J 

3«9,J 

310, J 

311. J 174131 

312'J 

313, J 

314.J 

315, J 

316, J 

317, J 

318, J 

319.J 

3?0U 

321, J 174150 

322. J 

323,J 

324, J 

325jj 



XIF 



174112 



174U2 
174115 
174120 
174123 
174124 

174125 



174125 
174126 



326. J 
327lj 
328, J 
329, J 

330, J 
331. J 
332lJ 
333,J 
334, J 
335, J 
336'J 
337, J 
338, J 
339. J 



174150 
174152 
174155 
174157 

174162 
174164 

174166 
174170 
174172 
174174 
174176 
174200 
174203 
174206 



062 
110 

HI 

053 
060 



151 
104 



024 
160 
^7A 
120 
062 
lU 
062 
HI 
062 
HI 
062 
113 
113 
104 



060 
125 

010 

125 
202 
211 
202 
211 
202 
211 
260 
074 
014 
216 



* 
C12345 



, CHECK FOR '12345» FOR COMMAND ENTRY VALUE 



074 345 
124 370 
074 024 



C1234P 

* 
GETCME 



CPC 
JFZ 

CPB 

nil 

POP 



012345 
C1234P 
012345*8 



tHECK use 

ABORT IF NOT RIGHT 
ELSE CHECK MSB 
RETURN IF BOTH CORRECT 
ELSE ABORT THE RETURN 



COMMAND ERROR 



216 367 



EX 

JMP 



BEEP 
GETCML 



MAKE NOISE IF BAD COMMAND 



* 
SACKSP 



, BACKSPACE IF NOT AT BEGINNING OF LIN£ 



174131 


113 


074 


106 


174134 


150 


207 


367 


174137 


113 


024 


001 


174142 


106 


222 


372 


174145 


104 


216 


367 



CPO 
JTZ 

suo 

CALL 
JMP 



NECP 

GCTCMO 

I 

SiCRL3 

GETCML 



DON'T DO ANYTHING IF AT BEGINNING OF LINE 

ELSE DECREMENT THE HORIZONTAL POSITION 
AND SHIFT BC BACK RIGHT THREE PLACES 
THEN CONTINUE THE COMMAND 



GETDIG 



370 



370 



, CONVERT OCTAL DIGITS ENTERED BEFORE COMMAND LETTER TO BINARY 

SAVE THE CHARACTER ENTERED 

SEE IF LEGAL ASCII DIGIT 
COMPLAIN IF NOT 



ELSE CONVERT TO BINARY 
BY SHIFTING BC LEFT 3 



117 

000 

367 



i 
• 


LLA 






8U 


»0' 




JT8 


GETCME 




CP 


8 




4FS 


GETCME 




ADCC 






ACBB 






ADCC 






ACBB 






ADCC 






ACBB 






ORAC 






CPO 


MAXPOSiPl 




ACD 







JMP 


GETCML 



AND OR'ING IN THE DIGIT 



OATAPOINT CONFIDENTIAL INFORMATIOW • SEE PAGE 1 
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342'J 
343. J 
344U 
345;j 
346. J 
347lj 
34eW 
349. J 
350^J 
351. J 
352' J 
353,J 
354:j 
355W 
396-J 
3S7,J 
358, J 
359yJ 
360'j 
36i J 
362,J 
3«?3lj 
3S4.J 
365^a 
366. J 
3i7.J 
3601 J 
369, J 
370, J 
371, J 
372.J 
373,J 

374.a 

375, J 
376. J 
377lj 
378, J 
379,4 
38?I,J 
381, J 
382, J 
383*J 

384:j 

385, J 
386' J 
387, 4 
388,4 
389.4 



t80«MACR/TXT 



MACRO-PROCESSOR SYSTEM MACRO ROM CODE • HSP/H4S m 784UL20 1 1 U4 
- 0E8UC COMMAND EXECUTION ROUTINES - 



A 


IPS 


ASCII 


w 

KEYINM 






* SET ASCII KFYIN 


MODE 


t 


CALL 


C12345 




HI 


KEYMSG 




DE 


61<8*8L 




CALL 


DISPLAY 




LA 


i377 




POP 






4MP 


KEYINS 


KEYING 


HL 


KEYMSC 




DE 


61<8*BL 




CALL 


DISPLAY 




XRA 






POP 






4MP 


KEYINS 


KEYMSG 


DC 


' * ASCII' 


KEYMSC 

* 
KEYINA 


DC 


SEEOLfSES 






, PROCESS 


NEXT CHARACTER IN AS 


• 


CP 


CAN 




4TZ 


KEYINC 




CP 


BSP 




4TZ 


OECAOR 




CP 


DEL 




4TZ 


INCAOR 




CP 


'A» 




4TC 


KEYINN 




CP 


'Z» + l 




4TC 


KEYINV 




CP 


1 1 




4TC 


KEYINN 




CP 


• '♦I 




4FC 


KEYINN 


KEYINV 


XR 


040 


KEYINN 


DPL 
LMA 
XRA 


HLiCURAOR 




EX 


CLICK 




XIF 





ENTRY MUST BE •IS345K' 
DISPLAY KEYIN MODE MESSAGE 
POSITION CURSOR FOR MESSAGE 
DISPLAY OR CLEAR THE MESSAGE 
SET THE KEYIN MODE FLAG 
rKEEP THE STACK CORRECT) 



RESET THE KEYIN MODE 

8LANK THE LINE 

(KEEP THE STACK CORRECT) 
DONE 

KEYIN MODE MESSAGE 



EXIT THE MODE IF CANCEL ENTERED 
BACK \JP ONE LOCATION IF BACKSPACE ENTERED 
GO FORWARD ONE LOCATION IF OEL ENTERED 
ELSE 00 SHIFT KEY INVERSION 



INVERT SHIFT IF ALPHA CHARACTER 

STORE THE ASCII CHAR IN CURRENT ADDRESS 

AND THEN BUMP THE CURRENT ADDRESS 

MAKE SOME NOISE IF ASCII CHARACTER 
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390lj 
391, J 










1742U 








392lJ 
393, J 


















394, J 










395,J 


174211 


115 


164 


200 


396' J 


174214 


110 


223 


370 


397, J 


174217 


026 


001 


§16 000 


398lj 


174223 


176 


202 




399,J 
400. J 


17422S 


115 


211 




174227 


115 


166 


200 


401' J 


174232 


007 






402,J 










403, J 


174233 








404, J 
405, J 
406,J 
407, J 


























174233 


110 


241 


370 


408, J 
409. J 


174236 


111 


124 


200 


174241 


174 


047 




410* J 


174243 


113 


146 


200 


4ii:j 


174246 


007 






412, J 
413,J 










174247 








414.J 










4l5'a 










41fi,J 










417, J 


174247 


113 


074 


106 


418, J 


174252 


053 






4l9lj 










420, J 










421, J 










422,J 
423,4 


















424,4 
42514 


174253 


HI 


126 


200 


174256 


007 






426,4 
427,4 










174257 








428,4 










429,4 
430.4 


















43114 


174257 


115 


164 


200 


432,4 
433,4 
434,4 


174262 


110 


271 


370 


174265 


026 


001 


016 000 


174271 


176 


222 




435.4 


174273 


115 


231 




436l4 


174275 


115 


166 


200 


437.4 


174300 


007 







MACRO-PROCESSfIR SYSTEM MACRO RQM CODE * HSP/H4S • 784UL20 11144 
m DEBUG COMMAND EXECUTION ROUTINES ^ 

* 
INCADR 



INCREMENT THE CURRENT ADDRESS »Y ONE OR THE VALUE GIVEN 



INCAOV 



HL,CURAOR 

INCADV 

I 



ML,CURAOR 



OPU 

4rz 

8C 

ADCL 
ACBH 
MOOIFNXT OPS 
RET 

LINK 

[ LINK TO THE ADDRESS POINTED TO BY THE CURRENT ADDRESS 

LINKAOR 
BCCURAOR 
OE,BC 
OEiCURADR 



LINKAOR 



4FZ 

DPL 

OPS 
RET 



USB ADDRESS GIVEN 

NOi USE CURRENT ADORESS 



* 
NEWAOR 



, SET THE CURRENT ADDRESS 



NOSADR 

* 
DECAOR 



CPO 

RTZ 

IF8 

DPL 

ADEC 

ACDB 

XIF 

OPS 

RET 



NECP 

ORIGINI 
OE,CURORG 



BCCURAOR 



IGNORE ENTER ONLY 



ELSE ADO ON THE CURRENT ORIGIN 
VALUE 



, DECREMENT THE CURRENT ADDRESS BY ONE OR THE VALUE GIVEN 

t 



DECAOV 



DPL 
4FZ 

8C 

SUCL 

8BBH 

DPS 

RET 



HLiCURADR 

DECAOV 

I 



HLiCURAOR 
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439W 

440;j 

441, J 
442,J 
443;j 
444 J 
445. J 
446, J 
447, J 
448, J 
449 J 
4S0,J 
451. J 
4S8,J 
4S3p 
494, J 
4S5,J 
456, J 
457' J 
498, J 
4S9.J 
4fi0lJ 
4il,J 
462,J 
463,J 
464, J 
4S5,J 
466,J 
467, J 
468. J 
4«9lJ 
470, J 
471, J 
472.4 
473l4 
474:j 
475lJ 
476,J 
477,4 
478,4 
47914 
480,4 
48i;4 
482,4 
483j4 
484,4 
485,4 
486,4 
487,4 
488,4 
489.4 
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MACR0*PP0CE5S0R SYSTEM MACRO ROM CODE • HSP/H4S • 784UL20 UI44 
- DEBUG COMMAND EXECUTION ROUTINES * 



174301 


035 






174302 


035 






1743«?3 


035 






1743?I4 


036 






174305 


035 






174306 


035 






1743?!7 


035 






174310 


035 






174311 


035 






174312 


U5 


166 


200 


174315 


U3 


074 


106 


174320 


053 






174321 


104 


343 


370 



174324 



174324 


113 


074 


106 


174327 


150 


335 


370 


174332 


lU 


126 


204 


174335 


111 


124 


204 



174340 

174340 
174343 



051 227 370 



174343 


U5 


174346 


372 


174347 


015 


174350 


111 


174352 


053 


174353 


371 


174354 


015 


174355 


153 


174356 


007 



164 200 



261 



, REGISTER 0I8PUAVS 

t 



REGF 
REGC 
RE6B 
REGE 
RESO 
REGU 
REGH 
REGA 
REGX 

RE60SP 



MODAGN 



OECP 
OECP 
DECP 
DECP 
OECP 
DECP 
DECP 
OECP 
OECP 

DPS 
CPD 
RTZ 
4MP 



HL 
HL 
HL 
HL 
HL 
HL 
HL 
HL 
HL 

HLfCURADR 

NECP 

MODIFY 



DISPLAY THAT REGISTER CONTENT 
JUST DISPLAY IF NO DIGITS ENTERED 

OTHERWISE MODIFY 



, U» MODIFY AND INCREMENT THE ADDRESS USING NEW QR PREVIOUSLY SET VALUE 



MODIFX 

* 

MQDINC 



CPD 
4TZ 
DPS 
OPL 



NECP 
MODIFX 

BCMODVAL 
8C,M00VAL 



CHECK IF DIGITS ARE GIVEN 

UPDATE TO NEW VALUE GIVEN 
QR USE OLD VALUES 



',' MODIFY AND INCREMENT THE ADDRESS 

PUSH MODIFNXT RETURN TO SAVE ADDRESS ROUTINE 



MODIFY 



MODIFY THE CURRENTLY ADDRESSED MEMORY LOCATION 

STORE LS8 WHERE CURRENT ADDRESS POINTS 
(INCREMENT ADDRESS BY ONE *- IF NEEDED) 



DPL 

LMC 

INCP 

ORBR 

RTZ 

LM9 

INCP 

EX 

RET 

IFS 



HLiCURADR 
HL 

HL 



HL 
CLICK 



0RI6INI 



THAT'S IT IF M88 IS ZERO 
ELSE STORE MSB IN FOLLOWING LOCATION 
(INCREMENT ADDRESS BY TWO » IF NEEDED) 
MAKE NOISE IF TWO BYTES STORED 



ORIGIN 

I SET THE CURRENT ORIGIN TO THE TABLE ENTRY SELECTED 



DATAPOINT CONFIDENTIAL INFORMATION ^ SEE PAGE I 
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• DEBUS COMMAND EXECUTION ROUTINES » 



4985' J 
491. J 
492,J 
493W 

494. a 

495,4 
496, J 
497, J 
498, J 
499lJ 
500, J 
50i,J 
502,4 
5ei3,J 
504, J 
505,4 
506,4 
507,4 
508,4 
509,4 
510*4 
511,4 
512,4 
513,4 
514^4 
515,4 
516,4 
517,4 
518,4 
519,4 
520,4 

D c 4 • ** 

522,4 
523,4 
524,4 
525l4 
526,4 
527,4 
528l4 
529,4 
530,4 
531,4 
532, V 
533,4 
534,4 
535,4 
536,4 
537,4 
538,4 
539.4 
540'4 
54i;4 



ORIGI0 



ORIGIC 



ORIGIM 



4TZ 

LAC 

CP 

4FC 

PS 

ADA 

ML 

INCP 

OPS 
8C 
DPS 
RET 



ORIGIC 

OTASLN 
GETCME 
A,CUR08N 

OTAiL 

HL,A 

8C,HL 

SCCURORG 

CURORG 

BCCURAOR 



JUST CLEAR ORIGIN IF NO SELECT GIVEN 
ELSE MAKE SURE SELECT IS WITHIN RANGE 



SAVE THE ORIGIN NUMBER 
INDEX INTO THE ORIGIN TABLE 



GET THE NEW ORIGIN VALUE 

SET THE CURRENT ORIGIN TO THAT VALUE 

DISPLAY THE SELECTED ORIGIN 



, MODIFY THE CURRENTLY SELECTED ORIGIN TABLE ENTRY 



PL 

4TZ 

CP 

4FC 

ADA 

HL 

INCP 

08 

4MP 

XIF 

IFS 



AfCUROSN 
ORIGI0 
0TA8LH 
GETCME 

OTASL 
HL,A 
8C,HL 
ORIGIC 



STACKP 



GET THE CURRENT ORIGIN SELECT NUMgER 
SELECT PREVIOUS ENTRY IF NO DIGITS 
MAKE SURE THE SELECT NUMBER IS WITHIN 
RANGE IF «IE'RE GOING TO UPDATE 
ELSE INDEX INTO ORIGIN TABLE BY 
THE CURRENT SELECT NUMBER 

STORE THE NEW VALUE THERE 
AND SAVE AND DISPLAY IT 



CAN»T POP MORE THAN STACKL/2"'! ENTRIES 



STACKR 

* ROLL (P0P5 THE STACK THE NUMBER OF TIMES GIVgN IN THE C'REGISTER 

LAC 
4FZ 

STACKQV CP 
4FC 

DPL 

8TACK0L OS 
NDL 
INCP 
ORL 
SU 
4FZ 
4MP 



STACKOV 


1 


32<.l 


GETCME 


DEBUG 


HL»0LOT0S 


OE,HL 


• 1*64 


HL,2 


64 


I 


STACKOL 


STACKO0 



STACK POPS "UP" 
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542:J 
543W 
544.J 
545W 
546, J 
547W 
548, J 
549, J 
5565, J 
55t.J 
5521 J 
553,a 
554,J 
555;j 
556,J 
5S7,J 
558, J 
559, J 
5«SI,J 
581. J 
562lj 
563,J 
564, J 
565,4 
566, J 
567'J 
588, J 
569.J 
57014 
571, J 
572, J 
573lJ 
57414 
575,4 
576,4 
577J4 
578,4 
57914 
580,4 
581.4 
58214 
583,4 
584.4 
58514 
586,4 
587,4 
588,4 
589,4 
590,4 
591.4 
592l4 
593.4 
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174357 



174404 



174404 
174407 
174412 
174414 
174416 
174421 
174425 
174427 
174430 
174433 
174436 
174437 
174441 
174444 
174445 
174447 
174451 
174453 
174454 
174456 



110 
III 
062 
074 

150 
066 
006 
017 
176 
100 
307 
074 
110 
035 
111 
117 
062 
370 
006 
062 



012 
124 

307 
052 
062 
211 

003 

074 
062 

377 

025 

027 

015 

307 

052 
370 
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STACKS 

I STUFF (PUSH) A VALUE ONTO THE STACK 



SEE PAGE I 
- HSP/H4S 



• 784UL20 11144 



STACKD0 



STACKO 



DPL 
DECP 
ORL 
DS 

tc 

OPS 
XIF 



HLfOLOTOS 

HL,2 

64 

8C,Ht 



HLfOLOTOS 



MAKE 8.0.S, NEW T.O.S, 
STACK GROWS "DOWN" 



CAUSE TOP STACK ENTRY TO BE DISPLAYED 



, DISPLAY A STACK LOCATION 



174357 


115 


164 


207 


174362 


302 






174363 


074 


037 




174365 


100 


125 


370 


174370 


200 






174371 


176 


044 


277 


174374 


017 






174375 


176 


064 


100 


174400 


115 


166 


200 


174403 


007 







OPL 

LAC 

CP 

4Fe 

ADA 

NDL 

INCP 

ORL 

OPS 

RETURN 



HLfOLDTOS 

32-1 

GCTCME 

-1*64 

HL,A 

64 

ML.CURADR 



chdbolo top of stack VALUF 

(C) IS stack NUMBER 



00U8LE FOR INDEX 



* 
8PSET 



371 

200 



371 

056 



251 
371 



371 



SET A BREAK POINT AT THE CURRENT OR GIVEN A0DRE8S 

USE CURRENT ADDRESS IF NO DIGITS GIVEN 
DON'T ALLOW iP IF 9P ALREADY THERE 



8P8ETG 



327 



8P8RCH 



4FZ 

OPL 
LAM 
CP 
4TZ 

LA 

INCP 

CPL 

4FC 

LAM 

CP 

4FZ 

DECP 

DS 

INCP 

LAM 

LMA 

LA 

LMA 



BPSET6 


BCCURADR 


BC 


0PC0DE8P 


BPTSER 


8PTABL»8PTES*1 


8PTE8 


HL#A 


8PTABE 


BPTSER 


• I 


BPSRCH 


HL 


BCHL 


HL,a 


BC 


OPCOOEBP 


BC 



SEARCH THE TABLE FOR AN OPENING 
BUMP TO THE NEXT TABLE OPENING 

STOP IF PAST END OF TABLE 
ERROR IF NO SLOTS AVAILABLE 
GET THE MSB OF THE ADDRESS 
KEEP GOING IF NOT A FREE SLOT 

ELSE STORE THE ADDRESS IN THE TABLE 

THEN SAVE WHAT WAS THERE IN MEMORY 

THEN STORE THE BREAK POINT INSTRUCTION 



( 
f 
( 
( 
( 
( 
( 
( 
( 
( 
< 
( 
( 
( 
( 
< 
( 
( 
( 
( 
( 
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S94,J 

596, J 
597, J 
598:j 
599jj 

sm.j 

601, J 
602,J 
6i3,J 
604W 
605,J 
606, J 
607, J 
608,J 
609,J 
610, J 
611, J 
612,J 
613,J 
6l4l4 
615.4 

eielj 
6i7,a 

618*J 
619.J 
6g0* J 
621, J 
622. J 
62314 
624, J 
625,4 
626,4 
627,4 
628,4 
629,4 
630,4 
63lj4 
632, 4 
633,4 
634,4 
635,4 
636,4 
637,4 
638,4 
639,4 
640,4 
641,4 
642.4 



174460 
174461 

174462 
174463 

174466 



174520 



174533 



174533 
174537 
174542 
174544 
174545 

174550 
174551, 

174553 
174554 
174557 



153 

007 

151 

104 



253 370 



066 
158 
074 

302 
150 

301 
024 

072 
U5 

007 



253 
154 
120 



* 
BPT8ER 

* 
8PCLR 



EX 
RET 

ex 

4MP 



CLICK 



BEEP 
NOSADR 



MAKE A LITTLE NOISE 

DON'T CHANGE THE CURRENT ADDRESS 

TELL THAT CAN NOT BREAKPOINT THERE 

SHOW 8P ALREADY THERE COR NO TABLE ROOM) 



174466 


066 


213 


056 


174472 


176 


074 


251 


174475 


150 


060 


373 


174500 


&47 






174501 


117 


015 




174503 


307 






174504 


015 






174505 


113 


074 


377 


174510 


150 


072 


371 


174513 


174 


370 




174515 


104 


072 


371 



327 



, CLEAR ALL THE BREAK POINTS 



BPCLRL 



HL 

CPL 

4TZ 

DL 

INCP 

LAM 

INCP 

CPD 

4TZ 

LMA 



BPTABL 


8PTA8E 


BPTCLR 


DEiHU 


HLi2 


HL 


-1 


BPCLRL 


DE 


BPCLRL 



INIT THE MEMORY POINTER TO THE 8P TABLE 
STOP IF AT ENO OF TABLE 

ELSE DE •> BREAK POINT LOCATION 

BUMP THE MEMORY POINTER PAST THE ADDRESS 

GET THE CONTENTS 

BUMP THE MEMORY POINTER TO NEXT ENTRY 

SKIP ENTRY IF NOT IN USE 

ELSE RESTORE THE CONTENTS 
AND MOVE ON TO THE NEXT ENTRY 



* 
REGMOD 



, SWITCH REGISTER MODES (ALPHA/BETA) 



174520 


176 


064 


077 


174523 


115 


166 


200 


174526 


006 


200 




174530 


104 


311 


372 



ORL 
OPS 
LA 
4MP 

IFNE 



SEPSt^SV, AND. 8177 (VALUE 9^77 OR AN ERROR) 



HL»CURADR 

3WALBT 

SREGMOO 

R0MTYPE,3 



DISPLAY THE MODI 

GO TO SET THE REGISTER MODE 



BASSET 

I SET OR DISPLAY THE BASE REGISTER 



056 
371 



357 



153 371 



200 



166 200 





HL 


8E8RLS 




4TZ 


BASED 




CP 


ipi 




LAC 






4TZ 


BASSES 


• 


LAS 






8U 


010i000»8 


BASSES 


BRL 




BASED 


DPS 
RET 


HL,CURAOR 



HL ■> CURRENT BASE STORAGE fBY FIRMWARE) 
4UST DISPLAY IF NOTHING ENTERED 
SUBTRACT 0100000 IF NOT SHIFTED P 
ELSE 4UST USE VALUE IN C-REG 



ELSE BIAS THE VALUE GIVEN SO IT WILL 
CORRESPOND TO VALUES BASED TO 

THEN STORE AND UPDATE THE BASE REGISTER 
CAUSE THE BASE REGISTER STORAGE 
TO BE DISPLAYED 
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643lJ 
644 -J 
64S^J 
646W 
647^J 
648 _ J 
649W 
650, J 
651, J 
652lj 
653,J 
654,J 
655,J 
6S6lJ 
657. J 



174560 



17456PI 


1?!6 


112 


37a 


174563 


115 


164 


zm 


174566 


3917 






174567 


074 


020 




174571 


100 


125 


370 


174574 


320 






174575 


015 






174576 


077 






174577 


ml 







* 
STIOAO 

\ LOAD THE SECTOR TABLE •» LOAO CN) ENTRIES WHERE (N5 IS THE BYTE POINTED TO 



BY THE CURRENT ADDRESS AND THE ENTRIES FOLLOW THAT LOCATION, 



CALL 

OPL 

LAM 

CP 

JFC 

LCA 

INCP 

STL 

RET 



C12345 
HLiCURADR 

16 
GETCME 

HL 



ENTRY MUST BE »12345Q' 

IF '123450' THEN LOAD FROM CURADR 

A a NUMBER OF ENTRIES 

ERROR IF NUM8ER OF ENTRIES »15 

SET C TO NUMBER OF ENTRIES 

PUMP HL TO START OF LIST 

I SURE HOPE EVERYTHING WAS SET UP RIGHTS 



OATAPOINT CONFIDENTIAL INFORHATION - SEE PAGE I 
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668* J 










659, J 

660;a 


17460P! 
















66i;j 










662, J 










663* J 










664U 
665W 
666,J 
667:j 


























17460^ 


ina 


2ii 


371 


668. J 


1746853 


066 


252 


056 


669lj 


174610 








670* J 


I7461i 


062 


121 




67i;j 


174612 


074 


141 




672jj 


174614 


150 


223 


371 


673lj 










674:j 


174617 


125 






67S1J 


17462(? 


074 


147 




676, J 
677, J 


174622 


053 














678*,J 


174623 


IPil 






67e:j 


174624 


066 


2513 


056 


680, J 


174631 


US 


166 


zm 


681, J 


174634 


0917 







357 327 



327 370 



662, J 
683lj 
684,4 
685. J 
686' J 
687,4 
688, J 
689, J 
690, J 
691,4 
692,4 
693,4 
694,4 
695,4 
696,4 
697.4 



174635 
17464(1 
174641 

174642 
174645 
174646 

174647 
174652 
174653 



lie 
123 
007 

1PI6 
125 
007 

106 
127 

007 



300 371 



3PI0 371 



300 371 
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♦ 
ADRDEV 

ADDRESS AN I/O DEVICE AND OISPIAY ITS CURRENT STATUS 

NOTEl MINOR DIFFERENCE FROM 5500 VERSION FOR »F' AND »G' MODES 

THE FIRST INPUT 8Y THIS CODE GIVES ACTUAL DATA NOT STATUS. 
DIFFERENCE FOUND BY GADWA'S GROUP 



ADROEl 



GETSTA 



4FZ 

MLC 

EXC 

CP 

4TZ 

EX 

CP 
RTZ 

IN 
MSA 
DPS 
RET 



AORDEl 
*SEXAOR 

ADR 
I I 

GETSTA 

DATA 
I I 



*CURSTA 
HL#CURADR 



ADDRESS IS GIVEN 

USE LAST ADDRESSED DEV IF NOT GIVEN 

ADDRESS THE DEVICE 

(AUTOMATICALLY SETS LAST ADRESS GIVEN) 

DO INPUT IF 'A' COMMAND 



ELSE PUT DEVICE IN DATA MODE 
4UST EXIT IF 'G' COMMAND 



GET THE STATUS OF THAT DEVICE 
CAUSE THE STATUS TO RE DISPLAYED 



ADDRESS THE CURRENTLY ADDRESSED I/O DEVICE AND OUTPUT THE VALUE GIVEN 
OR THE LAST VALUE GIVEN FOR OUTPUT DOING AN I/O STROBE BASED 
UPON THE COMMAND LETTER GIVEN, 



OUTXST 



OUTXDA 



* 
OUTXWT 



CALL 

EX 

RET 

CALL 

EX 

RET 

III Aip V 

EX 
RET 



OUTSETUP 
STATUS 



OUTSETUP 
DATA 



OUTSETUP 
WRITE 



» ' - EX STATUS 
OFF TO "GETSTA" 
♦ » » EX DATA 
OFF TO "GETSTA" 
«W' » EX WRITE 
OFF TO "GETSTA" 



OATAPOINT CONFIOSNTIAL INFORMATION - SEE PAGE 1 
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698, J 
6199, J 
7PI0lj 
7551.J 
702'J 
7«I3,J 
7«4jj 
705W 
7S»6,J 
707, J 
708, J 
709, J 
7t0,J 
711,4 
712,J 
713,J 
7 14. J 

717, J 
718, J 
719,J 
720,J 
721, J 
722, J 
723W 
724lJ 

725:j 

726,4 
727, J 
728* J 
720.4 
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174654 
1746S7 
174660 

174661 
174664 
174665 

174666 
174671 
174672 

174673 
174676 
174677 

174700 



174710 

1747U 
174713 



106 
131 

007 

106 
133 
007 

106 
135 
007 

106 
137 
007 



174700 


060 


174701 


051 


174704 


070 


174705 


105 


174707 


053 



302 
126 
007 



300 371 



300 371 



300 371 



300 371 



* 
OUTXCl 



* 
0UTXC2 



0UTXC3 



* 
0UTXC4 



OUTSETUP 

f 



CAUL 

EX 

RET 

CAUL 

EX 

RET 

CALL 

EX 

RET 

CALL 

EX 

RET 



OUTSETUP 
COMl 



OUTSETUP 
COM2 



OUTSETUP 
COM3 



OUTSETUP 
COM4 



'X« " EX COMl 
OFF TO "GET8TA" 
♦Y' *• EX COMg 
OFF TO "GETSTA" 
«Z' • EX C0H3 
OFF TO "GETSTA" 
»V' m EX COM4 
OFF TO "GETSTA" 



PUSH "GETSTA" ON THE STACK RELQW THE RETURN ADDRESS AND PUT THE RIGHT 
VALUE IN THE AwREGISTFR FOR THE OUTPUT INSTRUCTION, 



223 37J 



202 



202 



POP 

PUSH 

PUSH 

PL 

RTZ 

LAC 
PS 
RET 
XIP 



HU 

GETSTA 
HL 
AiCUROUT 



CCUROUT 
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730* J 

73i:j 










174714 








73g:j 










733,J 










734,4 










735,J 


174714 


006 


ms 




736;j 
737jj 
738,J 


174716 


104 


330 


371 










174721 








739,4 










740* J 
74i,J 


















742,J 


174721 


806 


001 




743, J 


174723 


104 


330 


371 


744, J 
74S,>I 
746,J 










174726 
















747, J 
748, J 


















749,J 

750,J 


174726 


f<»6 


000 












7S1,J 


1747391 


US 


164 


207 


752;j 


174733 


150 


340 


371 


753,J 
7S4,J 










174736 


HI 


027 




7S5,J 
756, J 
7S7,J 


17474« 


176 


044 


3«0 


174743 


035 






174744 


267 






758, J 


174745 


370 






7S9,J 
7«0,J 


174746 


106 


344 


372 










76i;j 


174751 


115 


164 


207 


762lJ 


174754 


176 


065 




763, J 


174756 


062 


030 





174760 



764, J 
765, J 
766, J 
767. J 
76814 
769,4 
77014 
77114 
772,4 
773.4 
774l4 
77514 
776,4 
777,4 
778,4 
779.4 
780*4 
781.4 174773 150 001 372 
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♦ 
eXEUSR 

\ CONTINUE EXECUTION FORCING USER MODE AND INTERRUPTS ENABtED 



LA 
4UMP 



SWUSER+8WINTE 
EXECEM 



USER MODE, INT, ENABLED 



EXECUI 



, CONTINUE EXECUTION FORCING INTERRUPTS ENABLED 

t 



LA 
4UMP 



SWINTE 

EXECEN 



INTERRUPTS ENABLED 



EXECUT 



CONTINUE EXECUTION WITH NO CHANGE IN MODE OR INTERRUPT FLAGS 



LA 



EXECEM 



EXECDM 



174760 


176 064 077 




ORL 


174763 


347 




LEM 


174764 


174 044 373 




NOE 


174767 


374 




LME 


174770 


113 074 106 




CPD 


174773 




4UMP 





NO CHANGE (CAN'T BE XRA OR JTZ FAILS) 

CATCH NO COMMAND VALUE GIVEN 

ELSE SET NEW RETURN ADDRESS 

POINT TO PSW 

SET MODE AS DESIRED 

CORRECT REGISTER LOCATIONS 

RESTORE USER SYSTEM SAVE AREA 

LOAD STATE, REGS, AND RETURN 

CALL 

I WARNINGS 'CALL' MUST NOT BE IN USER MODE OR THE RETURN WILL GENERATE 
, AN ERROR BECAUSE MACRO-ROM IS ACCESS PROTECTED 

SEPSWSV.ANO'.0177 POINT TO THE SAVED PSW 

(MAY NOT USE Af»RE63 
-l-SWUSER AND TURN OFF THE USER MODE BIT 



DPL 


HL,OLDTOS 


4TZ 


EXECDM 


OS 


BC,HL 


NDL 


0300 


DECP 


HL 


ORM 




LMA 


HL 


CALL 


RESTRLOC 


DPL 


HL,OL0TO8 


SYSMOV 


HL 


SYSRET 





NECP 



RESTORE THE CC FOR FOLLOWING CODE 



, PERFORM A CALL ("DEBUG" IS PUT ON THE STACK AS THE RETURN ADDRESS) OR A 
, 4UMP TO A GIVEN MEMORY LOCATION OR THE CURRENTLY ADDRESSED MEMORY LOCATION 



4TZ 



CALLKA 



OATAPOINT CONflOENTUL INFORMATION - SEE PAGE 1 
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782* J 










783W 


174776 


111 


126 


200 


784" J 


175^01 


022 


070 




785^J 


175P'03 


106 


344 


372 


786^4 


I75i06 


022 


060 




787:a 


I75etie» 


115 


164 


207 


788, J 


175013 


111 


124 


200 


789W 
790, J 
791W 


175016 


046 


127 


036 


1758)22 


176 


065 




175024 


074 


152 




792. J 
793. J 


175026 


150 


033 


372 


175031 


174 


070 




794' J 


175033 


062 


070 




795. J 


175035 


062 


030 
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CALLKA 



367 



JUMP IT 



OPS 


BCCURAOR 


PUSH 


XA 


CAUL 


RESTRLOC 


POP 


XA 


DPU 


HL.OLDTOS 


DPI. 


BC.CURAOR 


DE 


0E8UG 


SYSMOV 


HL 


CP 


1 1 


JTZ 


JUMPIT 


PUSH 


OE 


PUSH 


8C 


SVSRET 





SET ADDRESS TO CAUL (JUMP T05 
CSAVE A *. INPUT DEBUG OPERATION) 
CORRECT REGISTER LOCATIONS 



RET CALL (JUMP3 ADDRESS 
GET RETURN ADDRESS (IF CALL) 
RESTORE USER SYSTEM SAVE AREA 
JUMP OPERATION? 

N0» 'CALL' 80 PUSH RETURN ADDRESS 

LOAD STATEf REGS, ANO RETURN 
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796* J 










797lj 


175037 
















8«0,J 
80ljj 


















17SB37 


066 


117 




802. J 


I7504i 


150 


045 


372 


803* J 


175044 


362 






89!4,J 


175045 


070 






805. J 
806W 


175046 


106 


004 


374 


175051 


060 






807. J 


175052 


316 






808-J 


175053 


076 


357 




809, J 


175055 


106 


053 


374 


810. J 










8U.J 


1750691 


106 


125 


373 


812, J 


175(^63 


150 


060 


372 


813. J 


175066 


104 


004 


374 
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■ + 
T8TDSP 

] TEST THE DISPLAY SCREEN 8Y FILUINS IT FULL OF CHARACTERS 



TOSTD 



TDWAIT 



JTZ 

LLC 

PUSH 

CALL 

POP 

LBL 

LX 

CALL 

CALL 

4TZ 

JMP 



»0« 
TOSTO 

HL 

DSPINIT 

HL 

SED0PTS>8 
D0SF68LP 

D0SF61 
TOW AIT 
DSPINIT 



STANDARD CHARACTER 

WILL NOT BE USEDi VALUE ENTERED WILL BE 

SAVE IT 

INIT THE DISPLAY ANQ ITS POINTERS 

PUT IN B THE CODE TO BE DISPLAYED 

CHANGE THE DISPLAY TO ALL »B» 

WAIT FOR ANY KEYIN 

RE-INIT THE DISPLAY AND RETURN TO GET KEY 



DATAPOINT CONFIDENTIAL INFORMATION ' SEE PAGE I 
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1809IHACP/TXT 


814* J 










815,J 
816, J 
817jj 
8l8jj 


175071 
































819. J 


175071 


066 


lv^0 


056 372 


8g0' J 
881. J 


175075 


106 


341 


374 










888lj 


175100 


111 


010 




883, J 


175108 


381 






884;j 


175103 


036 


017 




885,J 


175105 


106 


115 


378 


886,J 










887, J 


175110 


111 


010 




saslj 


175118 


380 






889W 


175113 


036 


013 




830, J 


175115 








831, J 


175115 


016 


000 




838, J 
833,J 
834, J 
835,J 


175117 


066 


003 




175121 


106 


160 


378 


175184 


006 


078 




175126 


370 






836* J 
837;j 


175127 


007 














838, J 


175130 








839. J 










840' J 










841, J 
842, J 










175130 


224 






843,J 


175131 


040 


115 


078 


844'.J 


175134 


060 






845lJ 


175135 


061 






846, J 


175136 


061 






847, J 
848, a 


175137 


040 






175140 


120 






849, J 


175141 


040 


040 


040 040 


85a, J 


000013 








8SI.J 


175145 


040 


040 


040 040 


858' J 


000017 








853. a 


175151 


040 


040 


003 



MACRO-PROCESSOR SYgTEH MACRO ROM COOE 
* 0E8UG COMMAND EXECUTION ROUTINES -> 

lOENT 

I DISPLAY THE MICRO AND MACRO ROM VERSION INFORMATION 



HSP/HJS • 78JUL80 11144 



IOENT0 



HL 
CALL 

INFO 
LCB 
LO 
CALL 

INFO 

LCA 

LO 

L8 
LL 

CALL 
LA 

LMA 
RET 



IDENTM 
DISPLAY 



lOMIC 
IOENT0 



IDPROC 


3 

OSPQCT 



DISPLAY THE MACRO ROM VERSION INFORMATION 
HOPING 9»REG IS ZERO 

c « micro»r6m version 

DISPLAY IT IN OCTAL 
fSAVING A LITTLE SPACE) 

C ■ PROCESSOR TYPE 

DISPLAY IT IN OCTAL 



* 
IDENTM 



, ROM VERSION IDENTIFICATION MESSAGE 

■ 

IDENTS 



854. J 000012 



OSPBLNK 
IDPROC 

IDMIC 
D8PBLEN 



DC 

DC 

OC 

DC 

OC 

OC 

DC 

DC 

EQU 

DC 

OC 

EOU 



SHO 

• Ml » 

SMACROM/64,ANO,7+'0' 

SMACROM/8.ANo'.7+'0' 

$MACROM.ANO.7+»0' 

SMACVER PUT REVISION LETTERS IN MESSAGE 

ipi 

' ' fINVISIBLE COLON APPEARS WHEN NEC0EO) 

$-IDENTS»l 
I f 

f*-IDENTS*l 
' '»SE8 
Sb-OSPBLNKwI 
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18(»?9HACR/TXT 



MACRO-PROCESSOR SYSTEM MACRO ROM CODE * HSP/HJS • 
« DEBUG SUBROUTINES • 



78JULag in44 



857. J 
858, J 
8S9!j 

860, J 
861 J 

esa.j 

863,J 
8«4^J 
86S,J 
866jj 
867lj 
868lj 
869, J 
870, J 
871, J 
872;j 
873,J 
874, J 
875, J 
876.4 
877lj 
878,J 
879jj 
880, J 

882, J 
883, J 
884yJ 
885,4 
886' J 
887,4 
888^.4 

890,4 
891^4 
8mc, 4 
893,4 
894,4 
895,4 
896,4 
897W 
898.4 
899'4 

901,4 
95)2,4 
903,4 
904,4 
905,4 
906.4 



i75154 
175156 

175160 
175161 
175163 
175166 

175170 
175172 
175173 
175175 
175177 
175200 
175201 
175804 
175207 
175211 
175213 

175216 
175220 
175221 



066 
036 



022 
302 
^44 
004 
370 
035 
106 
U3 
022 
024 
110 

016 
371 

007 



0016 
117 



306 

022 070 
106 312 
022 060 



070 

007 
060 



222 

024 

060 

001 

170 

040 



175222 


111 


032 


175224 


062 


032 


175226 


lU 


032 


175230 


062 


032 


175232 


111 


032 


175234 


062 


032 


175236 


HI 


044 


175241 


007 





DISPLAY OCTAL VALUE RIGHT TO LEFT 

ENTRY? BC ■ VALUE TO BE DISPLAYED 

E • LINE FOR THE DISPLAY (-12 THRU U) 
L » NUM9ER OF CHARACTERS CIF ENTERED BELOW DSPOC65 
« POSITION OF RIGHT-HAND CHARACTER 
(IF ENTERED BELOW OSPOCR) 

EXITSt 8C " SCRATCHED 

■ POSITION TO LEFT OF MOST SIG, DIGIT (BLANKED) 
E « ENTRY VALUE 



DSP0C6 
DSPOCR 

OSPOCT 



374 



DSPOCL 



372 

001 



372 



* 
88CRL3 



LD 

LAL 
PUSH 

CALL 
POP 

PUSH 

LAC 

NO 

AD 

LMA 

DECP 

CALL 

SUO 

POP 

SU 

4FZ 

LB 

LM8 

RET 



HL - SCRATCHED 

6 
79 



XA 

DSPCBL 
XA 

XA 

7 

• 01 

HL 

S8CRL3 

I 

XA 

1 

DSPOCL 



037 



SHIFT BC RIGHT LOGICALLY 3 BITS 

SREB 

SPEC 

SREB 

SREC 

SREB 

SREC 

NOB 037 

RET 



DISPLAY 6 DIGITS 

DISPLAY AT RIGHT OF SCREEN 

GET THE COUNT IN THE A-REGISTER 

POSITION HL INTO DISPLAY BUFFER 

SAVE THE COUNT ON THE STACK 
GET THE LEAST SIGNIFICANT DIGIT 
ISOLATE THE OCTAL BITS 
CONVERT TO ASCII DIGIT 
DISPLAY THE ASCII DIGIT 

SHIFT THE 16-8IT VALUE RIGHT 3 BITS 
DECREMENT THE HORIZONTAL POSITION 
DECREMENT THE COUNT 

LOOP IF MORE DIGITS TO 60 

THEN BLANK THE POSITION TO THE LEFT 



DATAPOIWT CONFJOENTIAL INFORHATION - SEE PAGE I 
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1800MACR/TXT 


907*J 
908, J 










175242 








909,4 










910, J 










9U,J 










912,J 










913* J 


175242 


062 


020 




914, J 
915:j 


175244 


066 


200 


056 


175250 


174 


060 




916, J 
9!7.J 


175252 


176 


065 




175254 


174 


070 




918U 

919, J 
920, J 
921, J 


175256 


076 


327 




175260 


117 


275 




175262 


053 














922, J 
923, J 
924, J 


175263 


U5 


166 


207 


175266 


176 


044 


300 


175271 


117 


035 




92S.J 


175273 


106 


363 


372 


926*. J 


175276 


035 






927' J 


175277 


106 


325 


372 


928;j 
929, J 


175302 


035 






175303 


106 


325 


372 


930, J 










931, J 


175306 


176 


064 


077 


932,J 


175311 


257 






933, J 
934,J 


175312 


370 






175313 


120 


321 


372 


935. J 










936;j 


175316 


006 


011 




93714 
936,J 


175320 


037 






175321 


115 


166 


211 


939. J 


175324 


007 






940' J 
941, J 










175325 








942. J 










943' J 
944, J 
945:J 


















175325 


iPi6 


004 




946,J 
947, J 










175327 


047 






948, J 
949,J 


175330 


324 






175331 


343 






950, J 
951, J 


175332 


332 






175333 


027 






952, J 
953, J 


175334 


117 


035 




175336 


024 


001 




954, J 


175340 


110 


327 


372 


955,J 










956. J 


175343 


007 







MACR0*PP0CE8S0R 3YSTEW HACRO ROM CODE - HSP/HJS • 78JUU20 Ul44 
• DEBUG SUeROUTINES •» 

♦ 
SSTATE 



327 



SAVE THE STATE OF THE HACHINE AND SWAP AROUND THE REGISTERS 
SO THE DEBUG DISPLAY WILL SHOW PAIR VALUES AS WELL, 

SAVE CURRENT HOOE OF REGISTERS 
POINT TO NEW STACK AREA 

(RETURN ADDRESS) 
MOVE SYSTEM SAVE AREA 

(TO NEW STACK5 

IS STACK THE DEBUG STACK 7 
YES, DONE, 



POINT TO ALPHA (F) 

POINT TO ALPHA (AX) 

POINT TO BETA AX 
(RETURNS A«0) 

BACK UP TO P8W 

GET P8W (SETTING NEW MODE IF REGMOD) 

WANT BETA REGS 





SY88AV 






HL 


SD8GWS 




POP 


DE 




SYSMOV 


HL 




PUSH 


OE 




LX 


S08GWS>6 




CPHX 






RTZ 




• 


DPS 


HL#OLDTOS 




NDL 


0300 




OECP 


HL,2 




CALL 


SWITZAF 




OECP 


HL 




CALL 


RSWAP 




DECP 


HL 




CALL 


RSWAP 


1 


ORL 


SEPSWSV.AN 


8REGM0D 


XRM 


HL 




LMA 


HL 




JFS 


SSTATl 


t 


LA 


9 




OECP 


ML, A 


SSTATl 


OPS 
RET 


HL,OLDREGS 


* 






RSWAP 







, SWAP THE LOCATIONS OF LSS AND MS8 REGISTERS IN PAIRS IN MEMORY 





LA 


4 


• 






RSWL 


DL 
LCE 
LED 
LDC 


OE,HL 




DS 


OE,HL 




OECP 


HL,2 




SU 


1 




JFZ 


RSWL 



RETURN 
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957*.J 
998* J 
959jj 
960-J 
96i;j 
962' J 
963. J 
964' J 
965, J 
966, J 
967'a 
968, J 
969,4 
970'a 

972U 
973, J 
974, J 
975. J 
976'.J 
977:j 
978lj 
979, J 
980. J 
98i:j 
982jj 
983lj 
984, J 
985lJ 
986, J 
987, J 
988U 
989, J 
990. J 



1800MACR/TXT 



175344 



175363 



992. J 



175363 
175365 
175366 
175367 
175371 
175372 
175373 
175374 
175375 
175376 
175377 
175400 

175401 
175402 



006 
337 
037 
111 
037 
015 
347 
372 
035 
017 
027 
017 
371 
007 



MACPO-PRDCESSOR SVSTEM MACRO ROM CODE « H8P/HJS • 78JU1.2B 11144 
• DEBUG SUBROUTINES • 



RESTRLOC 

HU POINTS INTO REG-SAVE AREA (OR PSW) ON ENTRY 

RESTORE THE LOCATIONS OF THE REGISTERS TO THEIR NORMAL 
PLACES IN THE STATE STORAGE AREA IN HfMORY, 



175344 


176 


064 


175347 


117 


035 


175351 


106 


325 


175354 


835 




175355 


106 


325 


175360 


006 


022 


175362 


017 





077 
372 



372 



ORt 

OECP 

CALL 

OECP 

CALL 

LA 

INCP 






SEPSWSV. AND. 0177 (VALUE SHOULD BE ^77 OR AN ERROR) 

HL,2 POINT TO ALPHA XA PAIR SWAPPED 

R8WAP 

HL 

RSWAP 

18 

HL»A 

FALLS THROUGH INTO SWITZAF 



SWITZAF 



011 



047 



, SWITCH THE A REGISTER AND FLAGS IN MEMORY FOR BOTH MOOES 

, ON ENTRY, MUST POINT TO ALPHA FLAGS (TO BECOME A-REG AS IT »IAS3 

LA 9 

■ ALPHA FLAGS 

PC ■ ALPHA AfiREG AND BETA FLAGS 



E ■ BETA A-REG 

STORE BETA FLAGS THERE 



LA 


9 


LOM 




OECP 


HL,A 


OL 


BCHL 


OECP 


HL,A 


INCP 


HI 


LEM 




LMC 




OECP 


HL 


INCP 


HL,A 


OS 


OE,HL 


INCP 


HL#A 


LM8 




RET 





STORE SETA A*RE$ AND ALPHA FLAGS 
STORE ALPHA A-REG 



OATAPOINT CONFIDENTIAL iwrORMATION • SEE PAGE 1 



PASE 67 



993, J 
994, J 
995, J 
996, J 
997. J 
998lj 



1800HACR/TXT 



175403 



MACRO-PROCESSOR SYSTEM MAC«0 ROM CODE * HSP/HJS - 78JUL20 1H44 
-. DEBUG SUBROUTINES • 



MT8ETUP 



INITlAUlZEt THE SECTOR TABLE, THE 8ASE REGISTER TO ZERO, AND 

THE INTERRUPT VECTOR TO THE INTERNAL TRAP MESSAGES, 



999, J 


175403 


174 


060 






1000, J 

1001, J 


175405 


066 


227 


056 


363 


I754ji 


026 


015 






l002lJ 


175413 


077 








1003' J 
1004, J 


175414 


066 


225 


056 


363 


175420 


026 


322 






10051J 


175422 


062 


077 






1006, J 


175424 


250 








1007, J 
1008, J 


175425 


072 








175426 


174 


070 






1009,J 












1010,4 


175430 


066 


270 


056 


360 


1011, J 


175434 


046 


000 


036 


357 


1012,J 


175440 


026 


124 






1013, J 












1014'J 


175442 


310 








1015* J 
1016, J 


175443 


021 








175444 


007 








1017, J 












1018, J 
10l9lj 

I 020, J 


175445 






























1021, J 












1022. J 












1023* J 












1024, J 












1025, J 
1026. J 






















1027;j 
1028, J 


175445 


106 


003 


373 




175450 


060 








1029,4 


175451 


046 


300 


036 


357 


1030,4 
1031,4 


175455 


174 


065 






175457 


070 








1032,4 
103314 






















1034,4 












1035,4 












1036,4 
1037,4 
1038,4 
1039.4 










































1040*4 












104i;4 












104214 












1043.4 













MTSETX 



POP 

HL 

LC 

STL 

HL 

LC 

STLOC 

XRA 

BRL 
PUSH 

HL 

DE 

LC 

XRA 

L8A 

BT 

RET 



OE 

UMST 

UMSTL 



♦* INSURE CALLER GETS RETURNED TO 
INIT THE SECTOR TABLE FOR USER 
MEMORY SECTORS 



SHST INIT THE SECTOR TABLE FOR SYSTEM 

CSEOSP8F>fl,AND,03605+SMSTL MEMORY SECTORS 



DE 

VECTI 

SVMEMP 

VECTIL 



ZERO THE BASE REGISTER 

** IF THE STACK GETS MOVED C1800MQVI) 

INIT THE INTERRUPT VECTOR 

MOVE THE WHOLE TABLE 
NO BIAS ON THE BLOCK TRANSFER 
OON»T CHECK FOR ANY CHARACTERS 
TRANSFER THE ENTRIES TO MEMORY 



* 
SETUP 



INITIALIZEI THE SECTOR TABLE, THE BASE REGISTER TO ZERO, THE INTERRUPT 
VECTOR TO THE INTERNAL TRAP MESSAGES, THE STACK AREA TO 
THE "NORMAU" SYSTEM RAM AREA, THE ORIGIN TABLE TO 
ALL ZEROS, ANO THE BREAK POINT TABLE TO ALL FREE ENTRIES, 

warning: if sector table moves, routine MTSETUP stops RETURN TO CALLER*, 



SAVE THE RETURN ADDRESS IN HL 
MOVE THE STACK AREA TO THE 

"NORMAL" SYSTEM RAM AREA 
RESTORE THE RETURN ADDRESS 



1044.4 





CALL 


MTSETUP 




POP 


HL 




OE 


SESTACK 




8YSM0V 


DE 


* 


PUSH 


HL 


IFS 


ORIGINI 


orgclr 






I CLEAR 


ALL ORIGIN 


TABLE EN 


■ 


HL 
XRA 


CURORS 


OTCLQP 


LMA 


HL 




INCP 


HL 




CPL 


0PTA8E 




4FZ 


OTCLQP 




XIF 
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IS^eiMACR/TXT 



MACROwPPOCESSOR SYSTEM MACRO ROM CODE ' HSP/HJS • 78JULa0 11144 
m DEBUG SUBROUTINES • 



1045' J 
1046. J 
I047;j 
1048' J 
1049:4 
l050lJ 
1051, J 
1052. a 
1053, J 
10S4^J 
1055, J 
1056. J 
1771 
178. 



175460 



175460 


066 


213 


056 


175464 


006 


377 




175466 


370 






175467 


015 






175470 


176 


074 


251 


175473 


110 


066 


373 


175476 


007 







327 



* 






BPTCLR 






I FREE 


ALL BREAK 


POINT EnTRI 


• 


HL 


BPTABL 




LA 


-1 


RPTCLL 


LMA 






INCP 


HL 




CPL 


BPTABE 




JFZ 


8PTCLL 




RET 




• 


INC 


1800OSPR 
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3,K 
4,K 
5yK 
6.K 

7;k 

9 K 
10, K 

la.K 

13lK 

14, K 
15,K 
16,K 
17, K 
18, K 
19, K 
80, K 
21. K 
22'. K 

23;k 
24;k 

25lK 
26, K 
27, K 

29lK 

30, K 

32, K 
33,K 
34. K 

35;k 

36 K 
37, K 
38, K 
39, K 
40, K 

4r,K 

42. K 

43:k 

44, K 
45,K 
46, K 
47, K 
48;K 
49lK 
50, K 
51, K 
52, K 
53, K 
54,K 



180fMACR/TXT 



MACRO*PROCESSnR SYSTEM MACRO ROM CODE - HSP/HJS 
m 1800 DISPLAY TNTERFACe ROUTINES -• 



784UL20 n»44 



1800 DISPLAY INTERFACE ROUTINES JUNE 8, 1978 

GENERAL NOTES ON THE FOLLOWING ROUTINESl 



11153 



HSP/HJ8 



THE FLASHING OF THE CURSOR IS CONTROLLED 8Y THE "CURONOFF" AND 
"CURIN8UF" BITS IN THE "SECFLAGS" BYTE, THE POSITION OF THE 
CURSOR IS DETERMINED BY THE TWO BYTES IN "SECPOS" (VERTICAL) 
AND "SECPOS"*! (HORIZONTAL). 

NHEN THE "CURONOFF" BIT IS A ZERO, THE CURSOR IS NOT FLASHED, 
OTHERWISE! WHEN THE "SELFRgQ" BIT IN THE "CURINBUF" BIT POSITION 
IS DIFFERENT FROM THE "CURINBUF" BIT, THE CURSOR IS EITHERl 
1) TURNED ON IF THE "SELFREO" BIT IS NOW A ONE OR 23 TURNED OFF 
IF THE "SELFREO" BIT IS NOW A ZERO, WHEN THE CURSOR IS TURNED ON, 
THE CHARACTER AT THE CURSOR POSITION IS FIRST SAVED INTO 
"SECHIOE" AND THE CHARACTER AT "SECCHAR" IS STORED WHERE THE 
CURSOR POSITION DIRECTS, PUTTING IT "IN THE BUFFER". 



WHEN THE CURSOR IS TURNED OFF, IF 
IS NOT THE SAME AS THAT WHEPE THg 
IT IS ASSUMED THAT THE CURSOR WAS 
AND THE CHARACTER AT "SECHIDE" IS 
DONE, 



THE CHARACTER AT "SECCHAR" 
CURSOR POSITION DIRECTS 
OVERWRITTEN BY SOME ROUTINE 
NOT RESTORED AS IS NORMALLY 



WHEN THE "CURINBUF" BIT IS A ONE» THE CHARACTER IN THE CURSOR 
POSITION 18 THE CURSOR CHARACTER, OTHERWISE, IT IS THE 
CHARACTER THAT IS TO NORMALLY BE DISPLAYED IN THAT POSITION, 
THE EXCEPTION TO THIS RULE IS WHEN THE CURSOR POSITION IS NOT 
WITHIN THE CONFINES OF THE SCREEN (*12 TO +11 VERTICALLY AND 
TO 79 HORIZONTALLY), THE CURSOR IS NOT FLASHED, 

BEFORE MANY OF THE FOLLOWING ROUTINES WRITE TO THE SCREEN, THE 

CURSOR IS SUSPENDED. TO SUSPEND THE CURSOR, NO ACTION IS 

REQURIEO IF THE "CURINBUF" BIT IS A ZERO BECAUSE THE CURSOR CHARACTER 

IS NOT ON THE SCREEN, OTHERWISE, THE "CUROFF" BIT IS RESET TO 

ZERO AND THE CHARACTER AT "SECHIDE" IS STORED WHERE THE CURSOR 

POSITION DIRECTS IF THE CURSOR CHARACTER "SECCHAR" WAS THERE, 

WARNINGI THE FOLLOWING ROUTINES THAT CALL 'BLINK' OR 'CURSES' ARE NOT 

RE»ENTRANT, I,E, THEY CAN NOT BE USED IN A MULTI*TA8KING ENVIRONMENT 
UNLESS ALL OF THEM ARE IN THE SAME TASK (ALL FOREGROUND OR ALL 
BACKGROUND), IF THIS IS NOT DONE, THE CHARACTER AT THE CURSOR 
POSITION CAN GET PERMANENTLY CHANGED TO THE CURSOR CHARACTER, 
THIS IS NOT DESIRABLE. (DISPLAY IS INCLUDED IN THIS RESTRICTION) 

ALSO; THE ROUTINES THAT CALL 'CURS|SRS» STORE REGISTERS IN A FIXED STORAGE 
AREA, IF THESE ROUTINES ARE RE-ENTERED, THE REGISTERS AS STORED FROM 
THE FIRST CALL WILL BE LOST, THE BASIC DEBUG ROUTINES (IN THE ROM) 
HAVE BEEN MODIFIED SO THAT THIS WILL NOT NORMALLY HAPPEN DUE TO A 
DEBUG ENTRY, BUT, NOT ALL ROUTINES COULD BE MODIFIED SO, 
KNOWLEDGE & CARE MUST BE TAKEN IN USING THE DEBUGGER, 
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MACRO»PROCESSOR 8VSTEM MACRO ROM CODE - HSP/HJ8 - 78aUU2l?l US44 
• DOS FUNCTION 6 ROUTINES • 



57; 

58, 
59, 

61J 
«2. 
63; 
64, 
651 
66. 
87', 
68* 
69, 

K 

7J, 
72, 

73, 
74, 
75; 
76. 

^^;- 

78y 
79. 

8U 
8c, 
83, 
841 
85, 
86. 
871 
88, 
89^ 
90, 
9lJ 
92, 
93. 
94; 
95, 
96, 

98, 
99. 



175477 



DOS FUNCTION 6 

SU8FUNCTI0NJ 
I 
2 
3 
4 
5 
6 
7 
8 
9 
JJ« 
U 
12 
DSPCBl. 
CURSES 
9UINK 
8LINKDF 
62N 
* 
DOSF6S5 



RETURN KB0/D8P KEY STATUS 

CHECK FOR CHARACTER REAQV 

GET A BYTE FRQM THE KEYBOARD 

WRITE THE BYTE IN CB) TO THE SCREEN 

RETURN HOME"UP POSITION IN COE) 

RETURN HOME-DOWN POSITION IN (DE5 

TURN CURSOR ON 

ROLU UP SCREEN 

ERASE FROM CURSOR TO END OF FRAME 

ERASE PROM CURSOR TO END OF LINE 

ROLL OOHN SCREEN 

TURN CURSOR OFF 

RETURN FUNCTION KEY » KEYBOARD STATUS 

CONVERT CURSOR TO BUFFER POSITION 

SUSPEND THE CURSOR (REMOVE IT PROM BUFFER) 

BLINK THE CURSOR 

MOVE CURSOR TO DE AND BLINK IT THERE 

DOS FUNC 6 SUB 2 WITHOUT "DE" AND CURSOR BLINK 



175477 

1755?2 
175502 
175507 
175511 
175513 
175514 
175518 
175517 
175520 



106 244 373 



DOS FUNCTIONi 6 SUBFUNCTIONj 

«- RETURN THE STATES OF THE "KEYBOARD" AND "DISPLAY" KEYS - 

ENTRY! N/A 

EXITSI SIGN TRUE IF "KEYBOARD" KEY IS DOWN 
PARITY TRUE IF "DISPLAY" KEY IS DOWN 
B « X ONLY REGISTERS SAVED 
2 EXTRA STACK LEVELS USED tMAX5 



DOSF60N 



066 
044 
004 
360 
056 
307 
200 
007 



151 

003 
121 

373 



056 357 307 



CALL 

MLA 

ND 

AD 

LLA 

LH 

LAM 

ADA 

RET 



BLINK BLINK THE CURSOR WHERE IT WAS 

CSPECIAL •- MACRO-ROM NON BLINK ENTRY) 

♦8EK8S1 GET KEYBOARD STATUS 1 INTO CA) 

SEOSPKY.OR.SEKBDKY 

CCTAB60 INDEX INTO THE TABLE OF BYTES 

WHICH WILL GIVE THE CORRECT 

CCTA86i>8 CONDITION CODE WHEN ADDED 

TO THEMSELVES, 
SET THE CONDITION CODE 



OATAPOINT CONFIOENTfAL INFORMATION • SEE PAGE 1 
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103. K 



1800MACR/TXT 



MACPO'PRQCESSOR SVSTEM MACRO ROM CODE - H8P/HJS * 78JUU80 
« DOS FUNCTION 6 ROUTINES • 



lit AA 



THE CONDITION CODE GENERATION TA8LE IS PAGE SENSITIVE 



i75521 
175S22 
175523 
175524 



1<?»5.K 
15161 K 
107. K 
108. K 

leg.K 
iialK 

lU.K 

u2;k 

U3lK 
U4;k 
U5.K 175525 

iielK 

U7,K 
IISIK 
U9,K 
120'k 
121. K 
122. K 
123^K 
124. K 
125, K 
126'.K 
I27:i< 
128,K 
129. K 
130lK 

131, K 
132. K 
133'.K 
l34lK 
135. K 
i36;K 
137, K 
138, K 
139,K 
140, K 
141, K 
142jK 
143,K 
144, K 
145, K 

i4e,K 

147, K 
148, K 

149. K 

im'K 

151, K 
152,K 
153. K 



101 

100 



CCTAB60 



* 
008F61 



IFGT 
RPT 
DC 
XIF 

DC 
DC 
DC 
DC 



($, AND, 2553, 252 
wS, AND, 255 
000 



0003 
0002 

0101 
0100 



PAD TO END OF PAGE 



FALSE SIGN, PARITY & NO KEYS DOWN 

TRUE PARITY » DISPLAY KEY DOWN 

TRUE SIGN S KEYBOARD KEY DOWN 

TRUE SIGN, PARITY S BOTH KEYS DOWN 



DOS FUNCTIONI 6 SU6FUNCTI0NI 1 

-. CHECK THE KEYBOARD FQR CHARACTER READY m 

ENTRYi N/A 

EXITSt FALSE ZERO IF KEYBOARD HAS A CHARACTER 
B & X ONLY REGISTERS SAVED 
2 EXTRA STACK LEVELS USED CMAX5 



175525 
175530 
175535 
175537 

17554PI 



10S 244 373 

066 151 056 357 307 

044 804 
007 



CALL 
MLA 
ND 
RET 



BLINK 

♦SEKBSl 

SEKBROY 



BLINK THE CURSOR WHERE IT WAS 
GET KEYBOARD STATUS 1 INTO (A) 
SET THE ZERO CONDITION FALSE IF 
THE KEYBOARD HAS A CHARACTER 



DDSF62 



175540 
175543 
175543 
175550 



106 221 373 



DOS FUNCTION! 6 SUBFUNCTIONi 2 

• GET A TRANSLATED CHARACTER FROM THE KEYBOARD » 

ENTRY! • HORIZONTAL CURSOR POSITION 
E ■ VERTICAL CURSOR POSITION 
D,E NOT USED IN 00SF62N CiKEYCHAR) ENTRY 

EXITSI ZERO TRUE IF NO CHARACTER READY 

A ■ CHARACTER, AFTER TRANSLATION 

BC w SCRATCHED (NOT ON 00SF62N * SKEYCHAR - ENTRY) 

HL -• SCRATCHED 
NOTEl L ■ LOW 7 BITS OF UN-TRANSLATED KEYCOOE CIF NEEDED) 

4 EXTRA STACK LEVELS USED (MAX) 
(0 EXTRA STACK LEVELS USED • IN 00SF62N (SKEYCHAR) ENTRY) 



066 

044 



151 

004 



056 357 307 



0QSF62N 



CALL 

MLA 

ND 



BLINKDE 

*SEKBS1 
SEKBRDY 



BLINK THE CURSOR AT (DE) 

SET KEYBOARD STATUS 1 INTO (A) 
EXIT IF KEYBOARD NOT READY 
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154, K 
155, K 
156^K 
157, K 
158, K 
159:k 

161, K 
162, K 
l63lK 
164, K 
165;k 
166, K 
167. K 

169, K 
l70lK 
171, K 
172, K 
173'K 
174,K 
175,K 
176, K 
177:k 
178, K 
179. K 
18«1k 
181, K 
182:K 
183,K 
184,K 
185, K 
186,K 
187. K 

laslK 

189,K 
190,K 

191> 
192:k 

193, K 



180e!HACR/TXT 



175553 
175554 
175555 
175560 
175563 
175565 
175566 
175570 

175571 



175571 
175574 



OATAPOINT CONFIDENTIAL INFORMATION - SEf PAGE 1 

MACRO*-PROCESSOP SV8TEH MACRD POM CODE • HSP/HJS • 78JUU2e! 11144 
- DOS FUNCTION 5 ROUTINES • 



175552 053 



257 
370 

066 
176 
056 
307 
115 
0^7 



152 
044 
334 

265 



367 
177 



RTZ 

XRM 
IMA 

MLL 

mi 

LH 
LAM 
ORHH 
RET 

* 

0O8F63 

I DOS FUNCTIONl 



SEKiCH 

0177 

SEKTRAN>8 



ELSE RESET REAOY BIT 

GET THE CHARACTER 

STRIP OFF THE SIGN BIT 

GENERATING INDEX INTO TRANSLATE TABLE 

GET TRANSLATED CODE 

INSURE ZERO FLAG IS FALSE 



106 312 374 

043 



6 SU8FUNCTI0NI 
* WRITE A iVTE TO THE SCREEN - 



eWTRYl B ■ BYTE TO BE WRITTEN 

• HORIZONTAL CURSOR POSITION 
E ■ VERTICAL CURSOR POSITION 

EXITSi IF D OR E OUT OF RANGE: 
CARRY TRUE 
A ^ SCRATCHED 
IF D AND E WITHIN RANGES 
A • SCRATCHED 
HL ■ BUFFER ADDRESS OF BYTE WRITTEN 

1 EXTRA STACK LEVELS USED CMAX5 



NOTEI 



THIS ROUTINE CAN OVER^WRITE A BLINKING CURSOR 

BUT THE BLINK ROUTINE IS WRITTEN TO ALLOW IT BY NQT 

RESTORING THE CHARACTER BEHIND THE CURSOR IF THE 

CURSOR IS NOT THERE ANY WORE. 

NOT CHECKED BECAUSE FASTER BY ELIMINATING CALL TO CURSES, 



175575 371 

175576 007 



CALL 
RTC 

LM9 
RET 



DSPCBL 



COMPUTE BUFFER LOCATION 
EXIT IF OUT OF RANGE 

ELSE STORE THE BYTE 

AND EXIT FALSE CARRY 
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1R0(»HACR/TXT 



194, 
19S, 

197. 
1981 
199; 

im, 

201, 
202' 
203, 
204; 
205- 
206, 
207^ 
2081 
209; 
210, 
2I1J 

213, 

214* 

2151 

2161 

217, 

218, 

2191 

220; 

221, 

222, 

223, 

224^ 

227, 
228^ 

<Cr c y • 
230. 
23 f. 
2321 
233, 
234, 
235: 
2361 
237. 
2381 
239. 



175577 



175577 

175601 
175503 

175604 



175604 
175606 
175610 

1756U 



1756U 
175616 
175620 



046 364 
036 000 
007 



046 013 
036 000 

007 



066 
064 
370 



001 



056 357 307 



DATAPDINT CONFIDENTIAL INFORMATION • SEE PAGE 1 

MACRO-PROCESSOR SYSTEM MACRO ROM COOE * H8P/HJS • 78JUU20 11844 
I. DOS FUNCTION 6 ROUTINES - 

* 
00SF64 

DOS FUNCTION: 6 SUiFUNCTIONj 4 

m RETURN HOME UP POSITION IN (OF) • 

EXITS! « HOME UP HORIZONTAL CURSOR POSITION 
E « HOME UP VERTICAL CURSOR POSITION 
EXTRA STACK LEVELS USED (MAX) 



LE 
LD 
RET 



8L*1»MAXLIN 
LC 



00SF65 

DOS FUNCTIONI S SUBFUNCTIONI 5 

m RETURN HOME DOWN POSITION IN (OE) - 

EXITSI ■ HOME DOWN HORIZONTAL CURSOR POSITION 
E « HOME DOWN VERTICAL CURSOR POSITION 
EXTRA STACK LEVELS USED (MAX) 



LE 
LO 
RET 



oL 
LC 



008F66 



008 FUNCTIONI (5 SUBFUNCTIONJ 6 

m TURN THE CURSOR ON p 

ENTRYJ D m HORIZONTAL CURSOR POSITION 
E ■ VERTICAL CURSOR POSITION 

EXITSJ A,8,C,H,L - SCRATCHED 

IF OR E OUT OF RANGEI CURSOR »0N" BUT NOT FLASHING 
3 EXTRA STACK LEVELS USED (MAX) 



MLA 

OR 

LMA 



•SECFLAGS 
CURONOFF 



SET THE CURSOR ON/OFF SWITCH TO ON 
FALLS THROUGH INTO 8LINKDE 



r 



OATAPOINT CONFIOENTIAL INFORHATION m SEE PAGE 1 
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180?IMACR/T)(T 



MACRO^PROCESSOR SYSTEM MACRO ROM COOE • HSP/HJS 
m DOS FUNCTION 6 ROUTINES • 



78JUL20 U:44 



240:k 
241, K 
242^K 
243:k 
244, K 
245,K 
246. K 

247;k 

248*i< 
249,K 

250, K 
25llK 
252U 
253,K 
254, K 
255*K 

256, K 
257, K 
258. K 
259. K 
26<3',K 
26llK 
262,K 
263. K 
264lK 
265'K 
266,K 
267. K 
268'. K 
269lK 
270,K 

27i;k 

272;k 
273, K 
274, K 
875, K 
276;k 
277, K 
278, K 
279, K 
280, K 
28iJk 
282,K 
283. K 
284lK 
285,K 
286:iC 
287;k 

Z" 9 « K 

289Jk 
290, K 
291. K 



i75621 



175621 
175625 
175627 
175631 
175633 
175635 
175637 
17564S 

175644 



175644 
175651 
175653 
175654 
175655 
175657 
175660 
175668 

175663 
175665 
175666 
175667 
175671 
175672 
175675 

175676 
17570?! 
175702 
175704 
175706 



066 

in 

062 
111 



062 261 
022 ?I70 
112 237 
022 060 



066 

044 

053 

307 

366 

257 

i44 010 

053 



066 
257 
370 

047 
106 

043 



242 



245 



022 070 

076 357 

105 242 

044 010 

105 244 



8LINK0E 

IF THE CURSOR POSITION GIVEN IN (0E5 IS DIFFERENT FROM THE OLD POSITION, 
SUSPEND THE CURSOR AND UPDATE THE OLD CURSOR POSITION TO THE NEW, 
3 EXTRA STACK LEVELS USED (MAX5 



245 056 

047 
254 
253 



357 



374 





HL 


SECPOS 


PC « OLD CURSOR POSITION 




DL 


BC,HL 






XREC 




SEE IF BC ■ DE 




XROB 








0R8C 








PUSH 


XA 


SAVE XA IN CASE CURSES IS CALLED 




CFZ 


CURSES 


SUSPEND CURSOR IF 8C .NE', OE 


<A 


POP 


XA 


RESTORE XA 


6LINK 









242 056 357 307 

001 



153 



IF THE CURSOR ON/OFF SWITCH IS ON AND THE LINE FREQUENCV COUNTER ftlT 
USED FOR FLASHING IS DIFFERENT FROM THE CURSOR "IN BUFF" BIT, 
UPDATE THE CURSOR "IN 8UFF" $11 AND THEN IF THE CURSOR POSITION 
IS WITHIN THE RANGE OF THE SCREEN, EITHER RESTORE THE HIDDEN 
CHARACTER INTO THE BUFFER IF THE "IN SUFF" BIT IS NOW A ZERO OR SAVE 
THE BUFFER LOCATION IN THE HIDDEN CHARACTER AND PUT THE CURSOR 
CHARACTER IN THE BUFFER IF THE "IN BUFF" BIT IS A ONE, 
IF ON RESTORING THE HIDDEN CHARACTER IT IS NOTED THAT THE CURSOR 
CHARACTER IS NOT IN THE BUFFER COVERWRITTENJ THEN THE CHARACTER IS 
NOT RESTORED (ALLOWING WRITING IN THE SUFFER ON TOP OF THE CURSOR), 
1 EXTRA STACK LEVELS USED (MAX) 

EXIT IF THE CURSOR IS OFF 



EXIT IF THE "OFF" BIT EQUALS THE 
LINE FREQUENCY BIT 



312 374 



MLA 


♦SECFLAGS 


NO 


CURONOFF 


RT2 




LAM 




LL 


SELFREO 


XRM 




ND 


CURIN8UF 


RTZ 




LL 


SECFLAGS 


XRM 




LMA 




LL 


SECPOS 


OL 


DE,HL 


CALL 


08PC8L 


RTC 




PUSH 


XA 


LX 


SECFLAGS>8 


PL 


A, SECFLAGS 


ND 


CURIN8UF 


PL 


A,SECCHAR 



UPDATE THE "IN 8UF" BIT 



GET THE CURSOR POSITION 

GET THE MEMORY ADDRESS IN THE BUFFER 
EXIT IF THE CURSOR IS OFF THE SCREEN 

SAVE THE XiiRESlSTER 

SET UP THE PAGE REGISTER 

BRANCH ON CURSOR POSITION fIN/OUT BUFFER) 
(GET THE CURSOR CHARACTER) 



OATAPOINT CONFIDENTIAL INFORHATION » SEE PASE I 
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292yt< 17571IB 150 392 373 



293;K 
294^K 
295, K 

296lK 
297, K 
298yK 
299. K 

3^0. K 

3itlK 

302, K 
3R31K 
304JK 
305. K 



175713 


327 


175714 


126 


1757115 


370 


175717 


022 


175721 


0«7 


175722 


124 


175724 


277 


175725 


022 


175727 


013 


17573« 


372 


175731 


007 



243 



PiBn 



243 

060 



MACRO-^PPOCESSOR SVSTEM MACRO ROM CODE • HSP/HJ8 • 78JUI.20 11144 
• DOS FUNCTION 6 ROUTINES • 

RESTORE CHARACTER IF THE CURSOR WENT OUT 

ELSE SAVE THE NEW HIOOEN CHARACTER 
AND PUT THE CURSOR CHARACTER 
INTO THE DISPLAY BUFFER 

RESTORE THE XA REGISTERS 



(GET THE HIDDEN CHARACTER) 
TS THE CURSOR STILL IN MEHORY 

NOi IT HAS OVERWRITTEN 

YES, RESTORE THE HIDDEN CHARACTER 





JTZ 


8LINK0UT 


• 


LCM 






PS 


C»SECHIDE 




LMA 






POP 


XA 




RET 




BLINKOUT 


PL 
CPM 


CfSECHIOE 




POP 


XA 




RFZ 






LMC 






RET 





OATAPOINT CONFIDENTIAL INFORMATION • SEC PAGE J 



PASE 76 


l80eiMACR/TXT 


306lK 










307lK 
308, K 


















309;k 


175738 


036 


000 




31(8lK 


175734 


174 


004 


001 


311, K 


175737 


174 


074 


014 


318, K 


17S748 


013 






313;k 










314lK 


175743 


046 


013 




3is;k 










316'K 
317. K 










175745 








318lK 










319, K 










381Ik 


















388, K 










383'k 










384,K 
385.K 


















386'K 










387, K 










388, K 










389, K 










336), K 
331, K 


















338,K 










333!k 

334, K 


















335lK 


175745 


106 


285 


374 


336, K 
337, K 
338:k 


17575« 


106 


312 


374 


175753 


043 














339,K 


175754 


115 


164 


156 


340,K 


175757 


115 


166 


236 


341, K 
348, K 










175768 


850 






343,K 


175763 


106 


114 


374 


344,K 
345,K 
346,K 










175766 


046 


156 


036 357 


175778 


353 






347, K 


175773 


066 


160 




348, K 


175775 


086 


060 




349. K 


175777 


250 






350lK 


176^180 


310 






351, K 


176001 


081 






352lK 
353,K 

354. K 










176008 


250 






176003 


007 







MACP0"»P(?OCESSOR SVSTEM MACRO ROM COOE • HSP/HJS m 
m DOS FUNCTION 6 ROUTINES «> 



78JUL80 11144 



DISPNEWL 



* 



AOE 
CPE 
RFZ 

LE 

JMP 



LC 
1 
8L + 1 



BL 
00SF67 



♦♦ MOVED HERE TO SAVE 3 BYTES ♦** 
♦♦ PART OF THE DISPLAY CODE *♦* 
RESET THE HORIZONTAL POSITION 
BUMP THE VERTICAL POSITION 
EXIT IF NOT AT BOTTOM OF SCREEN 



ELSE SET VEftT POSITION TO BOTTOM 
OF SCREEN, ROLL UP» AND RETURN 



D0SF67 



OOS FUNCTIONi 6 SUBFUNCTIONi 7 

-• ROLL THE SCREEN UP ONE LINE " 

entry: D • HORIZONTAL CURSOR POSITION 
E • VERTICAL CURSOR POSITION 

EXITSI ALL REGISTERS PRESERVED 
IF OR E OUT OF RANSEJ 

CARRY TRUE 

SCREEN IN ORIGINAL POSITION 
IF AND E BOTH IN RANGE: 

CARRY FALSE 

SCREEN ROLLED ONE LINE 
3 EXTRA STACK LEVELS USEO CMAXI 



CALL 
CALL 
RTC 

OPL 
OPS 

XRA 
CALL 

OE 

LHO 

LL 

LC 

XRA 

LBA 

BT 

XRA 
RET 



CURSESRS 
08PC8L 



HL»SEDLN01 
HL.SEONUB 



8LANKIT 

SEOLN01 

SEOLN01+2 
MAXLIN*8 



SAVE REGISTERS AND SUSPEND CURSOR 
SEE IF OE IS WITHIN RANGE 
RESTORE REGS AND EXIT IF NOT 

PUT THE AOORESS OF THE TOP LINE INTO 
THE POINTER BELOW THE BOTTOM LINE 



BLANK OUT THE WHOLE LINE 
ROLL UP THE LINE POINTERS 



(ALL THE LINES3 



SET CARRY FALSE 

RESTORE THE REGISTERS AND EXIT 



OATAPOINT CONFIDENTIAL INFORHATION * SEf PAGE 1 
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3551k 










356;k 


I76«?i4 








3571k 
358, K 
3S9,K 


























360, K 
361, K 










I76i04 


046 


000 


036 3?»0 


3«21k 


l760l(? 


066 


156 


056 357 


3«3'K 


176014 


006 


120 




364. K 










3e5lK 


176016 


027 






366:k 


176017 


174 


017 




3671k 

368,K 
369, K 


176021 


117 


015 




176023 


176 


074 


236 


176026 


110 


016 


374 


3701k 










371,K 


176031 


250 






372, K 

3731k 
3741k 


176032 


066 


241 


370 










176035 


066 


242 


370 


3751k 










376, K 


176040 


066 


244 


370 


3771k 










378,K 


176043 


106 


177 


373 


379, K 










380,K 










38i1k 
382,K 


176046 
















3831k 










384, K 
3851k 
3861k 
3e7lK 


































388, K 










389,K 
390, K 


















39i:k 










3921k 
393, K 


















394, K 










395,K 
396, K 
397,K 


























398,K 
399,K 

4001k 










176046 


106 


225 


374 


176051 


016 


040 




4ii;K 

402, K 
403,K 










176053 


106 


312 


374 


176056 


043 






404, K 
405,K 










176057 


303 






4061k 


176060 


331 







MACRO^PPOCESSOR SYSTEM MACRO ROM CODE ^ HSP/HJS - 78JUL20 11144 
- 008 FUNCTION 6 ROUTINES • 



OSPINIT 



INITIALIZE ALL DISPLAY POINTERS ANO CONTROL INFORMATION 
3 EXTRA STACK LEVELS USED (MAX5 



DSPINITL 



DE 
HL 
LA 

OS 

INCP 

INCP 

CPL 

JFZ 

XRA 
MSA 

MSA 

LA 

MSA 

CALL 

JUMP 



SOSPBUF 
SEOLN01 
MAXPOS 



POINT TO THE SCREEN BUFFER 
POINT TO THE POINTER LIST 
LENGTH OF EACH LINE 



DE.HL SET UP A LINE POINTER 

DE.A BUMP THE POINTER VALUE 

HLi2 BUMP THE POINTER ADDRESS 

SEOLNai+CStMAXLlN) GO UNTIL ALL LINES DONE 
OSPINITL 



SEOOPTS+1 

SECFLAGS 

CURSOR 

8ECCHAR 

D0SF64 
D0SF68 



ZERO THE DISPLAY ROUTINE FLAGS 

USED BY THE OOS FUNCTIONS 
SET CURSOR FLAGS TO SUSPENDED 

ANO NOT IN THE BUFFER 
INITIALIZE THE CHARACTER (ASSUMED ZERO) 

USED FOR THE CURSOR 

GET HOME UP POSITION IN COE) 
ERASE THE ENTIRE SCREEN AND EXIT 



00SF68 



DOS FUNCTION! 6 SUBFUNCTIONj 8 

- ERASE FROM THE CURSOR THRU THE END OF FRAME - 

ENTRY! ■ HORIZONTAL CURSOR POSITION 
E ■ VERTICAL CURSOR POSITION 

EXITS! ALL REGISTERS PRESERVED 
IF OR e OUT OF RANGES 

CARRY TRUE 

NO LINES ERASED 
IF ANO E BOTH WITHIN RANGEl 

CARRY FALSE 

LINECS) ERASED 
3 EXTRA STACK LEVELS USED (MAX} 



CALL 
LB 

D0SF68LP CALL 
RTC 

LAD 
LD8 



CURSESRS 
DSPCBL 



SAVE REGISTERS AND SUSPEND CURSOR 
STANDARD ERASE CHARACTER 

COMPUTE THE BUFFER POSITION 

RESTORE REGS AND EXIT IF OE OUT OF RANGE 

BLANK TO THE END OF THAT LINE 
CSAVE THE B"»REGISTER3 



DATAPOINT CONFIDENTIAL INFORMATION m SEE PAGE I 
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4?i7lK 
408, K 
4091k 
410Jk 
4U,K 
412, K 
413,K 
4i4;K 
415, K 
416> 
417, K 
418, K 
419, K 
48f,K 
481, K 
422;t< 
483,K 
484lK 
485, K 
4a6'K 
487, K 
488, K 
489, K 
430, K 
431, K 
432,K 
433,K 
434, K 
435, K 
436,K 
437, K 
438, K 
439,K 
440, K 
441 K 
448, K 
443. K 
444*K 

445, K 
446, K 

447:k 
448, K 
449'K 
450, K 
451, K 
452'k 
453,K 
454, K 
455,K 
456, K 

457, K 

458. K 
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MACRO-PROCESSOR SYSTEM MACRO ROM CODE - HSP/HJS t 78JUL20 11144 
IP DOS FUNCTION 6 ROUTINES - 



176061 


174 


176»63 


106 


176066 


174 


176070 


313 


176071 


036 


176073 


174 


176076 


174 


176101 


U0 



176104 
176105 



176105 
176110 
176113 



176114 



007 



070 
116 
060 

000 

004 

074 
053 



374 



001 
014 
374 



PUSH 

CALL 

POP 

L80 

LO 

ARE 

CPE 

JFZ 



OE 

8LANKITB 

DE 

LC 

I 

BL + l 

D0SF68LP 



(RESTORE THE 8-REGISTPR5 
RESET THE HORIZONTAL POSITION 
INCRMENT THE VERTICAL LINE POSITION 
ERASE UNTIL BOTTOM LINE REACHED 



RET 

D08F69 

DOS FUNCTIONI 6 SU8FUNCTI0NI 9 

- ERASE FROM THE CURSOR THRU THE END OF LINE «* 

ENTRY* D « HORIZONTAL CURSOR POSITION 
E ■ VERTICAL CURSOR POSITION 

EXITSt (SEE "OOSFeS" ABOVE) 

3 EXTRA STACK LEVELS USED (MAX) 



106 285 
106 318 

303 



374 
374 



CALL 
CALL 
LAD 
JMP 



CURSESRS 
DSPC8L 



SAVE REGISTERS AND SUSPEND CURSOR 
POINT TO LINE TO BE 8LANKED 
ERASE TO THE END OF THE LINE 



BLANKIT 
BLANKIT 

BLANK A LINE WITH EITHER NORMAL OR INVERTED VIDEO BLANKS 



ENTRY 



A ■ HORZ CURSOR POSITION 

B ■ BLANKING CHARACTER (IF ENTER AT «BLANKITB») 

HL m ADDRESS OF THE LINE 

X 9 SED0PTS>6 

SEDOPTS ■ INVERTED VIDEO OPTION IN 87 

EXTRA STACK LEVELS USED 



176U4 


016 


040 


176U6 


086 


117 


176120 


068 


880 


176188 


105 


841 


176124 


044 


800 


176186 


261 




176127 


370 




176130 


068 


868 


176138 


053 




176133 


346 




176134 


335 




176135 


174 


019 



LB 

BLANKITB LC 



SUAC 

PL 

ND 

ORB 

LMA 

ORCC 

RTZ 

LEL 
LDH 
INCP 



I I 

MAXPOS^l 

A,SE00PTS+1 
$01 



BLANK LINE WITH STANDARD BLANK CODE 
COMPUTE mu MANY CHARACTERS TO BLANK 

GET THE INVERTED VIDEO OPTION FLAG 

'OR' IN A BLANK CHARACTER 
BLANK THE FIRST CHARACTER 
EXIT OF C ■ 



DE ■> NEXT CHARACTER 



DE 



OATAPOINT CONFIDENTIAL INFORMATION - 8E? PAGE I 



PAGE 



180?IHACR/TXT 



HACRO^PRnCESSOR SYSTEM MACRfl ROM COOE ^ HSP/WJ8 « 7«JUtS0 11144 
" 008 FUNCTION 6 ROUTINES m 



489, K 

4*0 , K 
461, K 
462, K 
463. K 
464^K 
465 , K 
466, K 
467lK 
468. K 
469'K 
470, K 
471, K 

4731k 
474, K 
475,K 
476, K 
477, K 
478. K 
479'K 
480. K 
48l*K 
483, K 
483,K 
484, K 
485, K 
486, K 
487, K 
488, K 
489, K 
490, K 
491, K 
492:k 
493, K 
494, K 
495,K 
496, K 
497, K 
498, K 
499,K 

5m,K 

5il,K 
5f2;K 
503, K 
5B4,K 
5e!5,K 
506, K 
507. K 
508'K 
509, K 
510. K 



178137 
176140 
176141 
176142 
176143 

176144 



176204 



250 
310 
021 

250 

0«7 



XRA 

LBA 

BT 

XRA 

RET 

00SF61i 

DOS FUNCTION; 6 SUBFUNCTIONI 10 

- ROtU THE SCREEN DOWN ONE LINE ' 



ENTRYJ P 8 HORIZONTAL CURSOR POSITION 
E « VERTICAL CURSOR POSITION 

EXITSS (SEE "00SF67" ABOVE) 

3 EXTRA STACK LEVELS USED (MAX) 



ELSE DO THE BLOCK TRANSFER 

TO CLEAR THE REST OF THE LINE 

EXIT FALSE CARRY 



176144 


106 


225 


374 


176147 


106 


312 


374 


176152 


043 






176153 


115 


164 


234 


176156 


115 


1«6 


154 


176161 


250 






178162 


106 


114 


374 


176165 


046 


235 


036 357 


176171 


353 






176172 


066 


233 




176174 


026 


060 




176176 


250 






176177 


310 






176200 


HI 


021 




176202 


250 






176203 


007 







CALL 
CALL 
RTC 

DPL 
DPS 

XRA 
CALL 

DE 

LHO 

LL 

LC 

XRA 

LBA 

8TR 

XRA 

RET 

* 

D0SF611 

DOS FUNCTIONi 



CUR8ESRS 
DSPCBL 



HLfSEDLBOT 
HLfSCONUL 



8LANKIT 

SEOLBOT^l 

SEDLB0T»i2*l 
MAXLIN*2 



SAVE REGISTERS AND SUSPEND CURSOR 
SEE IF DE WITHIN RANGE 
RESTORE REGS AND EXIT IF NOT 

PUT THE ADDRESS OF THE BOTTOM LINE 
IN THE POINTER ABOVE THE TOP LINE 



BLANK OUT THE WHOLE LINE 
ROLL DOWN THE LINE POINTERS 



CALL THE LINES) 



SET CARRY FALSE 

RESTORE THE REGISTERS AND EXIT 



6 8U8PUNCTI0NS U 



- TURN THE CURSOR OFF • 

ENTRYl D ■ HORIZONTAL CURSOR POSITION 
E ■ VERTICAL CURSOR POSITION 

EXITSS ALL REGISTERS PRESERVED 

3 EXTRA STACK LEVELS USED CMAX) 

A*RE6 CHANGED IF 00SF611N ENTRY USED, CURSOR MUST BE SUSPENDED 



DATAPOINT CONFIDENTIAL INFORMATION » SEE PAGE I 
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18esC^MACR/TXT 


511 Ik 


176204 


1^6 


225 374 


512;k 


176207 






513;k 


176207 


105 


242 


514,K 


176211 


044 


376 


515, K 


176213 


107 


242 


516^K 
517:k 


176215 


007 










518, K 
519, K 


I7621fi 












520, K 








521. K 








522'K 








523, K 
524, K 
525, K 
526;k 


























527, K 








528:k 








529:k 








530. K 








53lU 








532,K 








533, K 








534, K 
535, K 


176218 


026 


150 016 357 


176222 


062 


047 


538. K 


176224 


007 





MACRO-PRPCESSOR SYSTEM MACRO ROM CODE • HSP/HJS * 78JU120 11144 
!- DOS FUNCTION 6 ROUTINES • 



00SF611N 



CALL 

PL 
NO 
PS 
RET 



CURSE8RS 

AiSECFLAGS 

•1-CURONOFF 

A,SECFLAGS 



SAVE REGISTERS AND SUSPEND CURSOR 
SET THE CURSOR ON/OFF BIT TO "OFF" 

RESTORE THE REGISTERS AND EXIT 



D0SF612 

DOS FUNCTIONi fi 8U8FUNCTI0N8 12 

w RETURN FUNCTION KEY AND OTHER STATUS m 

EXITS! ALL REGISTERS PRESERVED 

8C EXCEPTED, THEY CONTAIN THE STATUS BITS 

B ■ it, X, X, X, SEKBOWN, SEKBROY, SEKBDKV, SEOSPKY) 

C • CSEINTKY, SEATTKY, SERSTKY, SEFUNC5, 4, 3, 2, 15 

EXTRA STACK LEVELS USED (MAX5 

WARNING! CHANGING OF LOCATIONS SEK8S2 OR SEK881 WITHOUT DUE REGARD FOR EFFECT 
CAN CAUSE LOSS OF CHARACTERS, FUNCTION KEYS AND AUTO RfSTARTSUi 



8C 
OL 
RET 



SEKBS2 
8C,8C 



GET THE STATUS BYTES 



DATAPOINT CONFIDENTIAL INFORMATION • SEE PAGE 1 



PASE 81 



539;k 

540'k 

S4l,K 

542, K 

543'k 

544 K 

54S,K 

546Jk 

547, K 

548'K 

549U 

550^K 

551, K 

552. K 

553'k 

5541k 

555^K 

556^K 

557> 

558> 

559.K 

560'K 

5S1.K 

562, K 

5631k 

564, K 

565, K 

566,K 

587, K 

568, K 

569, K 

570 K 

5m:k 

572,K 
573,K 
574, K 
575, K 
576lK 
577, K 
578, K 

579,K 
580, K 
581, K 
582, K 
593,K 
584, K 
585, K 
586,K 
587, K 
588, K 
589, K 
590;K 



ISawMACP/TXT 



176225 



17622S 


051 271 335 




PUSH 


OSPRE(5SA*7 


176230 


055 




RE5S 




176231 


060 




POP 


HL 


176232 


060 




POP 


HL 


176233 


351 303 374 




PUSH 


0SPPE8TR 


176236 


070 


^ 


PUSH 


HL 


176237 




CURSES 







176237 


076 


357 




176241 


115 


164 


245 


176244 


113 


146 


245 


176247 


105 


242 




176251 


044 


010 




176253 


053 







176254 


1!JI5 


242 




176256 


044 


367 




176260 


107 


242 




176262 


346 






176263 


335 






176264 


106 


312 


374 


176267 


113 


144 


245 


176272 


043 






176273 


105 


244 




176275 


277 






176276 


013 






176277 


105 


243 





MACRO-PROCESSOR SYSTEM MACRO RQM CODE • HSP/HJS m 78JUL20 11144 
m DISPLAY INTERFACE CONTROL SUSROUTlNfS •» 

* 
CURSESRS 

SAVE THE REGISTERS AND CAUSE A "RETURN" AFTER THE CALL TO THIS ROUTINE 
TO TRANSFER CONTROL TO "DSPRESTR''p THEN SUSPEND THE CURSOR, 
3 EXTRA STACK LEVELS USED CMAX) 

SAVE THE REGISTERS IN THE 

AREA FOR THE DISPLAY 
SET RID OF "OSPREGSA" ADDRESS ON STACK 
PUT "OSPRESTR" ON STACK BELOW 
THE RETURN ADDRESS 



SAVE THE NEW CURSOR POSITION GIVEN IN (DE5 IN "SECPOS", THEN, IP 
THE CURSOR CHARACTER IS IN THE BUFFER, SUSPEND THE CURSOR 
BY PLACING THE CHARACTER IN WSECHIOE" BACK INTO THE BUFFER 
AS DIRECTED BY THE OLD CURSOR POSITION BEFORE THIS ROUTINE 
WAS ENTERED. 

entry: ■ HORIZONTAL CURSOR POSITION 
E ■ VERTICAL CURSOR POSITION 

EXITS* HL#A m SCRATCHED 

X m> SECFLAG8 PAGE 

1 EXTRA STACK LEVELS USED fMAX) 



SAVE THE OLD CURSOR POSITION IN HL 
UPDATE THE CURSOR POSITION TO THAT IN DE 
EXIT IF THE CURSOR CHARACTER IS 
NOT CliRRENTLY IN THE BUFFER 

(THE "CURIN BUFF" BIT IS A ZEROl 

* 

, CLEAR THE CURSOR ON BIT AND STORE THE HIDDEN CHARACTER IN THE 
, CURSOR POSITION GIVEN IN CHL) 

ELSE CLEAR THE CURSOR IN BUFF BIT 



LX 


SECFLASS»8 


DPL 


HL,SECP08 


DPS 


OE.SECPOS 


PL 


A,SECFUA6S 


ND 


CURINBUF 


RTZ 





PL 


A,SECFLAGS 


NO 


fflfCURINBUF 


PS 


A,SECFLAGS 


LEL 




LDH 




CALL 


DSPCQL 


DPL 


DE,SECPOS 


RTC 




PL 


A.SECCHAR 


CPM 




RFZ 




PL 


A,SECHIDE 



HL ■> WHERE THE CURSOR HAS 



RESTORE THE NEl»l CURSOR POSITION IN OE 
EXIT IF CURSOR WAS OFF THE SCREEN 

CHECK IF THE CURSOR IS STILL IN MEMORY 
IF NOT, DON'T RESTORE THE HIDDEN CHAR 

ELSE, STORE THE HIDDEN CHARACTER 



OATAPOINT CONFIDENTIAL INFORMATION - SEi PAGE 1 
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1800MACP/TXT 


59r,K 
592, K 


176301 


370 




176302 


007 




593, K 








594,K 


176303 


066 


271 056 335 


595,K 


176307 


111 


055 


596, K 


176311 


007 




597, K 
598,K 
599, K 

600, K 








176312 


















601, K 








6«2lK 
603,K 
694, K 
605,K 


























606. K 








607lK 








608, K 








609,K 








610. K 








6U1k 
612. K 














6l3lK 








614, K 


176312 


303 




615. K 


176313 


004 


260 


eielK 


176315 


043 




617, K 








618, K 
619, K 
620, K 


176316 


304 




178317 


024 


014 


176321 


074 


350 


621, K 


17«323 


043 




622'k 








623,K 


176324 


200 




624:k 

625, K 
626, K 


176325 


066 


236 056 356 


176331 


017 




176332 


057 




627, K 
628,K 


176333 


303 




176334 


017 




629,K 


176335 


250 




630. K 


176336 


007 





MACRO-PROCESSOR SYSTEM MACRO ROM CODE • HSP/HJS • 78JUL20 11144 
f DISPLAY INTERFACE CONTROL SUBROUTINES m 



LMA 
RET 

* 

0SPRE8TR HL 

REGL 
RET 

* 

0SPC8L 



0SPREGSA*7 



WHERE THE CURSOR NA8 
AND EXIT 

RESTORE THE REGISTERS FROM THE 
SAVE AREA FOR THE DISPLAY 
ROUTINES, 



COMPUTE OISPLAY BUFFER LOCATION 

ENTRYJ ■ HORIZONTAL CURSOR POSITION 
E ■ VERTICAL CURSOR POSITION 

EXITS: IF AND E BOTH WITHIN RANGE! 
CARRY FALSE 

HL « MEMORY LOCATION IN THE SCREEN SUFFER 
A ■ ZERO 
IF D OR E NOT WITHIN RANGEl 
CARRY TRUE 
A - SCRATCHEO 
EXTRA STACK LEVELS USED (MAX) 



EXIT TRUE CARRY IF OUT OF RANGE 



LAO 




AD 


-MAXPOS 


RTC 




LAE 




SU 


BL + 1 


CP 


wMAXLlN 


RTC 




ADA 




HL 


SEDNUBw256 


INCP 


HL,A 


DL 


HL.HL 


LAO 




INCP 


HL,A 


XRA 




RET 





EXIT TRUE CARRY IF E OUT OF RANGE 
MAKE A « "MAXLIN THRU fl 



DOUBLE UNBIASED E VALUE TO GET INDEX 
INTO THE LIST OF LINE POINTERS 
(256 CORRECTS FOR SINGLE BYTE INCP) 

GET POINTER TO BEGINNING OF LINE 

INDEX INTO THE SELECTED LINE 

EXIT FALSE CARRY 



OATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE I 
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MACPO-PROCESSOR SYSTEM MACRO ROM CODE * HSP/HJS 
- 1500/I8i0 OISPUAY ROUTINE • 



- 78JUU8?! 11144 



633'K 
634, K 
635, K 
636. K 
637*K 
638^K 
639, K 
640',K 
641'k 
642U 
643 K 
644, K 
645. K 
646'K 
647, K 
648, K 
649, K 
650, K 
65J,K 
6S2:K 
653^K 
654, K 
655, K 
656, K 
657, K 
658. K 
659'K 
660, K 
66iJk 

oil c n K 



DISPLAY A STRING ROUTINE 



0?ie!?iCi3 
0^0007 
0000U 
000013 
000015 
000021 

000022 
000023 
000024 
000033 

000203 
000207 
000211 
000213 
000215 



000223 

000224 
000233 

000200 
000100 
000040 



• 


CONTROL 


CHARACTERS? 


SES* 


EOU 


003 


SBP* 


enu 


007 


$H* 


EOU 


ill 


SV* 


EOU 


013 


SEL* 


E6U 


015 


SEEOF* 


E9U 


021 


SEEOL* 


EOU 


022 


$RU* 


EOU 


023 


$R0* 


EOU 


024 


$F* 


EQU 


033 


SNS* 


EOU 


0203 


SCK* 


EQU 


0207 


$HA* 


EOU 


0211 


$VA* 


EQU 


0213 


SNL* 


EOU 


0215 


• 


EOU 


0221 


• 


EQU 


0222 


SHU* 


EOU 


0223 


SHO* 


EOU 


0224 


SO* 


EQU 


0233 


$01* 


EQU 


B7 


SOS* 


EOU 


86 


SOW* 


EQU 


85 



ENO OF DISPLAY STRING 

BEEP 

NEW DISPLAY COLUMN FOLLOWS 

Ngio DISPLAY ROW FOLLOWS 

ADVANCE TO NEW LINE AND TERMINATE STRING 

ERASE TO END OF FRAME 

ERASE TO END OF LINE 

ROLL UP 

ROLL DOWN 

FORCE DISPLAY OF NEXT CHARACTER 

NEW STRING ADDRESS FOLLOWS (LSB,M3R3 

CLICK 

DISPLAY COLUMN ADJUSTMENT FOLLOWS 

DISPLAY ROW ADJUSTMENT FOLLOWS 

ADVANCE TO NEW LINE 

♦ NOT USED ♦ 

♦ NOT USED ♦ 

HOME UP tUPPER LEFT-HAND CORNER) 
HOME DOWN (LOWER LEFTiiHANO CORNER) 
NEW OPTIONS FOLLOW 



INVERTED VIDEO OPTION 
SKIP BLANKS OPTION 
INHIBIT WAIT ON DISPLAY 



KEY OPTION 



OATAPQINT CONFIOENTIAL INFORMATION m SEE PAGE 1 
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MACRO-PROCESSOR SYSTEM MACRO ROM CODE »■ HSP/HJ8 
- 1500/1800 DISPLAY ROUTINE • 



78JUL20 11S44 



663, K 
664, K 
665> 
666, K 
667 K 
668, K 
669, K 
670. K 
67r,K 
672, K 
673, K 
674, K 
675, K 
676, K 
677,K 
678, K 
679, K 
680, K 
681. K 
682'. K 
683'k 
684, K 
685, K 
686, K 
687, K 
688 K 
689, K 
690, K 
691, K 
692, K 
693, K 
694, K 
695,K 
696, K 
697, K 
698. K 
699, K 
700, K 
701, K 
702, K 
703lK 
7«4,K 
705, K 
706. K 
707'lK 
708,K 
709. K 
710, K 

7u;k 

712, K 
713, K 
714:K 



176357 



176357 
176360 

176361 
17636? 



307 

015 

310 
124 241 



176364 


074 


033 




176366 


150 


062 


375 


176371 


070 






176372 


140 


007 


375 


176375 


074 


203 




176377 


140 


065 


375 


176402 


074 


234 




176404 


100 


065 


375 



THE DISPLAY ROUTINE ENTRY POINTS 

"OISPOOS" INITIALIZES THE OPTIONS IN THE B»REGISTER TO 

A 0OS«C0MPATI8tE SET 
"DISPLAY" STORES THE OPTIONS IN THE B-REGISTER IN "SEDOPTS" 

ENTRYl B * OPTIONS (UNLESS ENTERING AT OISPOOS) 

■ HORIZONTAL CURSOR POSITION (0 THUR 79) 

E « VERTICAL CURSOR POSITION e»12 THRU 115 

HL ■ STRING AORRfSS 

EXITS? A ■ ENTRY VALUE 

B B LAST OPTION VALUE SET 

C ■ ENTRY VALUE 

DE ■ CURSOR POSITION AFTER LAST CHARACTER OISPLAYEO 

OR CURSOR POSITION WHEN LAST CONTROL EXECUTED 
HL ■ AODRESS OF 8YTE AFTER STRING TERMINATOR 
6 EXTRA STACK LEVELS USED (MAX) 

EXCLUDING DISPLAY WAIT VECTOR OVERHEAD (IF USED) 

SKIP BLANKS AND INHIBIT DSP KEY WAIT 

SAVE THE X-REGISTER 

SAVE THE STRING POINTER 

MAKE SURE THE CURSOR IS SUSPENDED 

SAVE THE BC REGISTER PAIR IN tSEOOPTS* 

RESTORE THE STRING POINTER 
CLEAR THE PHYSICAL SCREEN POINTER 
MSB TO ALL ONES (CAN BE IN ROMU 

* 

DISPLANC 

', DISPLAY THE NEXT CHARACTER IN THE STRING POINTED TO BY (HL) 

GET THE NEXT STRING CHARACTER 
BUMP THE STRING POINTER 

SAVE THE CHARACTER IN THE B"REG 
C ■ DISPLAY OPTION BITS 

FALL THROUGH IF THE CHARACTER 
(SPECIAL HANDLING) 
(SAVE THE STRING POINTER) 
CANNOT BE A CONTROL 



176337 


016 140 


DISPDOS 


LB 


SOS*tOW 


178341 
176343 
176344 
176347 


022 070 
070 

106 237 374 
111 126 240 


DISPLAY 


PUSH 
PUSH 
CALL 
OPS 


XA 

HL 

CURSES 
8C, SEDOPTS 


176352 
176353 
176355 


060 

006 377 
107 246 


DI8PCPRP 
DISPCPSL 


POP 

LA 

PS 


HL 
• 1 
A,SECP08+1 



176407 066 152 056 375 



DISPFUNC HL 



LAM 




INCP 


HL 


L8A 




PL 


C,SED0PTS*1 


CP 


$F 


JTZ 


OISPFORC 


PUSH 


HL 


JTC 


DISPFUNC 


CP 


SNS 


JTC 


OISPOUT 


CP 


SO + 1 


JFC 


OISPOUT 


HL 


DISPFTA8-2 



SEE IF FUNCTION IN TABLE 



( 
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1800MACR/ 




715*K 


176413 


117 


015 




716, K 


176415 


307 






717Jk 
718. K 


176416 


260 






176417 


150 


065 




719:k 








( 


720. K 


176482 


015 




\ 


7ailK 


176423 


271 






722.K 


176424 


110 


013 


I 


723',K 










724*K 


176427 


302 






725,K 


176430 


044 


040 


( 


726Jk 
727, K 


176432 


110 


047 




728jK 


176435 


106 


105 


l' 


729,K 










730, K 


176440 


105 


151 




731, K 


176442 


044 


001 




732, K 
733;k 


176444 


110 


035 












734'K 


176447 


062 


060 




735,K 


176451 


051 


353 




736,K 


176454 


057 






737, K 


176455 


070 






738, K 


176456 


362 






739,K 


176457 


351 






740.K 
741, K 


176460 


250 






176461 


007 






742,K 










743:K 


176462 


317 






744, K 


176463 


015 






745,K 


176464 


070 






746. K 










747, K 
748, K 










176465 


302 






749,% 


176466 


044 


200 


i 


750. K 


176470 


111 


250 




751. K 


176472 


115 


164 




752, K 
753, K 


176475 


305 






176476 


004 


001 




754;k 
755, « 


176500 


H2 


312 




176503 


140 


146 


( 


756*K 
757, K 

758, K 








176506 


006 


177 




176510 


241 




/ 


759, K 


176511 


074 


040 


\ 


760, K 


176513 


110 


124 




761. K 








( 


762lK 


176516 


302 




763. K 


176517 


044 


100 




764'K 


176521 


110 


125 


/ 


765. K 








i. 


766. K 


176524 


371 





DATAPOIWT CONFinENTJAL INPORMATIQW • SEE PAGE 1 

MACPO-PROCeSSOR SYSTEM MACRO ROM COHE ' HSP/HJS 
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78JUL20 11144 



375 



375 



375 
357 



375 



374 



245 



374 
375 



375 



375 



OISPFCLP 


INCP 

LAM 

ORA 


HL,2 




JTZ 


OISPOUT 


• 


INCP 
CP8 


HL 




JFZ 


OISPFCLP 


« 


LAC 






NO 


SOiM 




JFZ 


OISPOOCC 


DISPDSPW 


CALL 


SVOISPNS 


• 


PL 


A,SEKBS1 




NO 


SEOSPKY 




JFZ 


OISPOSPW 


DISPDOCC 


POP 


BC 




PUSH 


DISPCPSL 




OL 


HL,HL 




PUSH 


HL 




LLC 






LHB 






XRA 






RET 




* 






DISPFORC 


LaM 






INCP 


ML 




PUSH 


HL 


• 


JUMP 


OISPOtJT 


OISPOUT 


LAC 






NO 


B7 




XRA8 






DPL 


HLiSECPDS 




LAN 






AD 


1 




CTC 


DSPCBL 




JTC 


DISPOFFS 


t 


LA 
NOB 


0177 




CP 


1 1 




JFZ 


DISPNRIT 


• 


LAC 






NO 


86 




JFZ 


0I8P8KIP 


DISPWRIT 


LMi 





HRITE CHAR IF TERMINATOR REACHED 

HL ■> FUNCTION EXECUTION ADDRESS 
SEE IF CONTROL CHARACTER DESIRED 
KEEP SCANNING IF NOT 

SEE IF THE "INHIBIT WAIT BEFORE CONTROL" 

OPTION BIT IS SET 
JUST DO CONTROL FUNCTION IF IT IS 

CALL THE DISPLAY WAIT ROUTINE 

i^lll ALWAYS 00 IT ONCE IF ENASLEOli) 

ELSE SEE IF THE DISPLAY KEY IS DOWN 

WAIT ON IT IF IT IS 

PUT STRING POINTER INTO »C FOR A WHILE 
PUT NEXT CHAR RETURN ADR ON THE STACK 
GET THE CONTROL ROUTINE ADDRESS 

AND PUT THAT ON THE STACK 
MAKE HL ■> NEXT STRING CHARACTER 

MAKE A ■ FOR SH AND $V 
OFF TO THE CONTROL ROUTINE 

FORCE THE NEXT CHARACTER 

TO BE DISPLAYED REGARDLESS OF ITS 

VALUE 

NOTEI SPECIAL HANDLING OF THIS IF CODE 

ISOLATE THE VIDEO INVERSION OPTION SIT 
AND INVERT THE SIGN BIT OF THE 
CHARACTER TO BE WRITTEN IF SET 

GET THE PHYSICAL SCREEN POSITION 

COMPUTE THE PHYSICAL LOCATION 
IF IT IS NOT KNOWN CIN ROMJ) 

CATCH OFF THE SCREEN 

CATCH WRITING SPACES 



JUST WRITE IF NOT 

ELSE SEE IF SPACES ARE TO BE SKIPPED 

OON«T WRITE IF SO 

ELSE STORE THE BYTE ON THE SCREEN 



DATAPOINT CONFIDENTIAL INFORMATION • SEC PAGE I 
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1800MACR/TXT 


HACROwpRQCESSOR SYSTEM MACRO ROM 












9 


1500/1800 DISPLAY 


ROUTINE • 


767*K 


17652S 


015 






OISPSKIP 


INCP 


HL 


768, K 


176526 


115 


166 


245 






OPS 


HLiSeCPOS 


709-K 


176531 


060 










POP 


HL 


770, K 


176532 


113 


0^A 


001 






ADO 


1 


77l'K 


176535 


113 


074 


120 






CPD 


MAXPOS 


772 K 


176540 


140 


357 


374 






JTC 


DISPLANC 


773,K 










• 








774, K 
775, K 


176543 


104 


353 


374 






JMP 


DISPCPSL 










* 








776. K 


176546 


113 


004 


001 


DISPOFFS 


ADD 


1 


777*K 


176551 


104 


352 


374 






JMP 


DISPCPRP 


778 K 










t 








779,K 


176554 








OISPFTAB 






780 K 










• 








781, K 










t 


DISPLAY 


FUNCTION 


TABLS 


782,K 










• 








783, K 


176554 


011 


254 


375 






OC 


$H,*DISPHCOL 


784, K 


176557 


013 


261 


375 






DC 


fV,*DI8PVC0L 


785,K 


176562 


211 


253 


375 






OC 


$HA»*OISPHADJ 


786.K 


176565 


213 


26i 


375 






OC 


$VAf *DISPVADJ 


787'K 


176570 


215 


332 


373 






DC 


SNLi*OISPNEWL 


788, K 


176573 


203 


240 


375 






OC 


$NSi*OISPGNSA 


789, K 


176576 


223 


177 


373 






OC 


$HU,*00SF64 


790, K 


176601 


224 


204 


373 






OC 


$H0#*D0SF85 


791, K 










• 




DC 


SF,*DISPF0RC 


792, K 


176604 


233 


242 


375 






DC 


$D, ♦OISPGOPT 


793lK 


176607 


023 


345 


373 






OC 


$RU»*D0SF67 


794. K 


176612 


024 


144 


374 






OC 


$RO»*DOSF610 


795'K 


176615 


022 


105 


374 






OC 


$EE0L#*D0SP69 


796, K 
797, K 


176620 


021 


046 


374 






DC 


$EE0Ff*D0SF68 


176623 


007 


247 


375 






OC 


i8P,*0ISPBEEP 


798, K 


176626 


207 


251 


375 






DC 


SCKi^OISPCLIK 


799,K 


176631 


015 


265 


375 






DC 


$ELi*DISPENOL 


800, K 


176634 


1303 


270 


375 






OC 


SES#*018PEXIT 


801, K 


176637 


000 










OC 





802, K 










* 








803, K 


176640 


057 






0ISP5NSA 


DL 


HL,HL 


804,K 
805, K 
806:K 


176641 


007 










RET 












♦ 








176642 


307 






OISPGOPT 


LAM 




807, K 


176643 


015 










INCP 


HL 


808, K 
809. K 


176644 


107 


241 








PS 


A,SE00PTS+1 


176646 


007 










RET 





INCREMENT THE PHYSICAL SCREEN POSITION 
SAVE THE PHYSICAL SCREEN POSITION 
RESTORE THE STRING POINTER 
INCREMENT THE CURSOR POSITION 
ON TO THE NEXT STRING CHARACTER 
IF CURSOR STILL ON THE SCREEN 

ELSE CLEAR THE PHYSICAL SCREEN LOCATION 

INCREMENT THE CURSOR POSITION ANO 
ON TO THE NEXT STRING CHARACTER 



(SPECIAL HANDLING) 



TERMINATOR 

GET NEW STRING ADDRESS 



GET THE NEW OPTIONS 
INCREMENT THE STRING POINTER 
STORE THE NEW OPTIONS 



r 
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1800MACR/TXT 



MACRO»PROCESSOR SYSTEM MACRO RQM CODE - HSP/HJS .. 78JUL20 Ut44 
« imSi/lBm DISPLAY ROUTINE - 



810'K 
8!iJk 
818*K 
813, K 
8141k 
815Jk 
816,K 
817, K 
818, K 
819, K 
8?0,K 
881, K 
e{?2,K 
8?3 K 
824, K 
885, K 
886, K 
887, K 
888, K 
889. K 
830'K 
831, K 
838, K 
833, K 
834, K 
835, K 
836;k 
837;k 



176647 
176650 

176651 
176658 



176654 
176655 
176656 
176657 



17666! 
176668 
176663 
176664 

176665 
17667M 
176678 
176675 
176676 
176700 
176708 



151 

007 

153 
0«I7 



176653 3PI3 



207 

330 
015 

007 



176660 304 



207 
340 
015 
007 

106 
262 
111 
250 
107 
028 
007 



338 

060 
184 

241 

060 



373 



240 



OISPBEEP 


EX 
RPT 


BEEP 


* 






OISPCLIK 


EX 
RET 


CLICK 


* 






DISPHAOJ 


LAO 




DISPHCOL 


ADM 
LRA 






INCP 


HL 




RET 




* 






DISPVADJ 


LAE 




0I8PVCOL 


AflM 
LEA 






INCP 


HL 




RET 




* 






DfSPENDL 


CALL 


OISPNEWL 


0I8PEXIT 


pnp 


BC 




DPL 


eCSEDOPTS 




XRA 






PS 


A,SEDOPTS*l 




pnp 


XA 




RET 





CAUSE HORIZONTAL ADJUSTMENT 
WHEN ENTERED MERE 

A ■ ZERO WHEN ENTERED HIRE 
SO D « STRING VALUE 



CAUSE VERTICAL ADJUSTMENT 
WHEN ENTERED HERE 

A • ZERO WHEN ENTERED HERE 
SO E ■ STRING VALUE 



CAUSE ADVANCE TO A NEW LINE 
CAUSE EXIT OF THE DISPLAY ROUTINE 
RESTORE C»REG AND LAST OPTIONS IN S-REG 
CLEAR THE OPTIONS 

RESTORE THE XA REGISTER PAIR 
FINALLY, EXIT THE DISPLAY ROUTINE 



OATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE I 
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180e»MACR/TXT 


838lK 










839-K 


176703 








840. K 
84iJk 


















842. K 










843'K 










844. K 










845. K 










846. K 










847yK 
848lK 


















849, K 


176703 


066 


141 


056 


850*K 


176707 


016 


040 




851, K 


1767H 


106 


341 


374 


852, K 


176714 


113 


024 


012 


853^K 


176717 


IC6 


211 


373 


854, K 


176722 


106 


140 


373 


sssIk 


176725 


150 


322 


375 


856:k 










887. K 


176730 


310 






858'k 


176731 


106 


171 


373 


8S9,K 
8«01k 


176734 


076 


357 




176736 


1PI6 


207 


374 


861. K 


176741 


301 






862*K 


176742 


0517 






179. 











MACRO«PROCeSSO« SYSTEM MACRO ROM CODE - HSP/HJS • 78JUL20 11144 
1. 1500/1800 DISPLAY ROUTINE • 



KEYCHAR 

GET A KEYBOARD CHARACTER 

ENTRY! DE ■ CURSOR POSITION TO BE FLASHED WHILE WAITING 

EXIT88 A AND B ■ KEYBOARD CHARACTER 
C,H,L * SCRATCHED 
5 STACK LEVELS USED (MAX) * LESS? * 



372 



180. 



ML 
LB 

CALL 
SLID 
CALL 
KEYCHARW CALL 
JTZ 

LBA 

CALL 

LX 

CALL 

LA8 

RET 

• 

INC 



OSPBLNK 

SOW 

DISPLAY 

DSPBLEN 

00SF66 

D0SF62 

KEYCHARW 



D0SF63 

SECFLAGS>8 

D0SF611N 



1800MOVI 



9LANK OUT SOME SPACE FOR THE KEYIN 
WITHOUT USING 00SF69 (BECAUSE OF CURSE8RS) 
CORRECT FOR UPDATING OF THE D-REGISTER 
TURN ON THE CURSOR 
WAIT FOR A CHARACTER TO BE INPUT 



ECHO THE CHARACTER 



TURN THE CURSOR OFF (OVERWRITTEN BY 63) 
EXIT WITH THE CHARACTER IN A AND 8 



DATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE I 
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1800HACR/TXT 




3^1 












4Jl 












5yL 












i.t 


000004 










K^ 


040000 










8.L 












9^1 












leji. 


176743 


082 


040 


081 


062 


12jt 
13ju 


176758 


040 


066 


064 


003 


176756 


060 


«*64 
















14,L 


176760 










isJl 


176760 


106 


112 


370 




i7;l 


176763 


106 


045 


373 




176766 


106 


0^4 


374 




16.L 


176771 


020 








19,1 


176778 


036 


007 






80U 


176774 


056 


000 






81. L 


176776 


365 








8alL 


i76777 


030 








83. L 


177000 


046 


000 


036 


100 


8411 


177004 


104 


114 


377 




85lu 












86,1 


177007 










87^1 












88. L 












8911 












30, L 


177007 


174 


070 






31^ 


177011 


046 


006 


036 


111 


32,L 


177015 


066 


343 


056 


375 


33,U 


177021 


106 


337 


374 




34:l 


177024 


036 


114 






35lL 


177026 


106 


318 


374 




36,1 


177031 


070 








37;U 












38, L 


177038 


066 


264 


056 


363 


39. L 


177036 


086 


002 






40;l 


177040 


077 








41^1 












42,U 


177041 


066 


001 


0S6 


357 


43,1 

44;u 


177045 


046 


215 


036 


377 


177051 


087 


















46^U 

47;l 


177058 


076 


0130 






177054 


046 


264 






48;i. 
4911 


177056 


250 


















50:1 


177057 


066 


377 


056 


080 


siJl 

52;l 


177063 


376 








177064 


107 


377 






53,1. 


177066 


277 








54. L 


177067 


110 


110 


376 





MACRO-pPROCESSPR system macro ROM CODE «• HSP/HaS • 78JU180 IU44 
- MOVI MACRO-ROM MEMORY TEST «• 



, 1800 MOVING INVERSIONS MEMORY TEST 

* 



070 



MAXSTLS 


EQU 


4 


MAXSZ 


EOU 


MAXSTLS«12 


* 
MTMSG188 


DC 


SEEOL,' 128KMES 


MTMSG64 


DC 


' 64',$ES 


MTINC 


OC 


•04' 


W 

TSTMEM 








CALL 


C18345 




CALL 


SETUP 




CALL 


OSPINIT 




BETA 






LD 


8-1 




LH 







LLH 






ALPHA 






OE 


MAXSZ 




JMP 


MSTART 



MTSIZE 

I SIZE CALCULATION DONE PER PASS 



PUSH 


OE 


OE 


73«8+BL*5 


HL 


MTM8G128 


CALL 


OISPODS 


in 


76 


CALL 


OSPCBL 


PUSH 




HL 


WRAPST 


LC 


8 


STL 




HL 


SVMEMP+l 


DE 


MTSIZMPF 


OS 


DE,HL 


LX 


0>8 


IE 


SMST+PISTL 


XRA 




HL 


010377 


LHL 




PS 


A,0(i<0377 


CPM 




JFZ 


MT8IZ32S 



JAN 30, 1978 14143 



HJS 



16K BLOCKS TESTED PER PASS 

MEMORY SIZE BEING TESTED (POWER OF 25 

MUST ALLOW 8K SPACE WITH MJN. MEMORY SIZE 



STEPS IN 4K CHUNCKS 

SEE IF ENTERED MEMORY TEST LEGALLY 

INITIALIZE THE WORLD 

DISPLAY ERROR ADDRESS POINTER CH0RIZ5 

INITIALIZE THE PASS NUMBER 

START INITIAL STEPSIZE AS 1 
FINISH INIT AS IF ENDED A PASS 



SAVE THE INCREMENT SIZE 

POINT TO MEMORY LOCATION FOR »K' COUNTER 

DISPLAY THE INITIAL MESSAGE 

GET ADDRESS OF THE COUNTER IN DISPLAY RAM 

SPECIAL WRAP AROUND MEMORY TEST 



SET INTERRUPT VECTOR FOR SIZE CALCULATION 



POINTER NEEDED LATER 

ASSUME MEMORY OVER 64K BOUNDARY 



SET 72K PHYS. TO ALL ONES 

COR 8K PHYS, IF WRAPPED) 
SET 8K PHYS, TO ZEROS 

READ 72K PHYS, tOR 8K) TO SEE IF NON^ZERO 
NO WRAP AROUND* USING 32K CARDS 
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S5,L 
56,1 

57;u 

58. L 

«2.L 

63.1- 
64,1 
65ju 
66. L 
87,U 

69lu 

7llL 
72;U 
73A 
7411. 
7Sll. 
76.1. 
77, L 
78,L 
79,1. 
80.1. 
81, L 
82, L 
8311 
84U 
85, L 
86,1 
87, L 

89;l 

91. L 

9ali, 

93, U 
94.1. 
9511 
96,L 
97. L 
98U 
99. L 



180«MACR/TXT 



OATAPOINT CONFIDENTIAL INFORMATION • SEE PAGE 1 

MACRO-PROCESSOR SYSTEM MACRO ROM CODE - HSP/HJ9 • 78Jlit20 11144 
m MQVI MACROfROM MEMORY TEST - 



177072 


310 








I77e)73 


046 


006 


036 


112 


177P177 


066 


352 


056 


375 


177103 


106 


341 


374 




177106 


046 


244 






177U0 


364 








177111 










177111 


174 


060 






177113 


174 


070 






177115 


970 








177116 


066 


357 


056 


375 


177122 


250 








177123 


026 


002 






177125 


016 


060 






177127 


062 


041 






177131 


100 


140 


376 




177134 


006 


040 






177136 


174 


370 






177140 


060 








177141 


056 


363 






177143 


035 








177144 


176 


074 


233 




177147 


140 


173 


376 




177152 


026 


001 






177154 


077 








177155 


016 


377 






177157 


321 








177160 


111 


126 


000 




177163 


111 


124 


000 




177166 


062 


261 






177170 


150 


HI 


376 




177173 


015 








177174 


306 








177175 


046 


201 


036 


377 


177201 


066 


001 


056 


357 


177205 


027 








177206 


060 








177207 


174 


060 







MTSI232S 

* 

HTSIZLP 



MTSIZUP0 



MTSIZIT 



LBA 

DE 

HL 

CALL 

IE 

LLE 



POP 

PUSH 

PUSH 

HL 

XRA 

LC 

LB 

DF88 

JFC 

LA 

LMA 

POP 

LH 

OECP 

CPL 

JTC 

LC 
STL 

LS 

LC8 

DPS 

OPL 

ORBC 

JTZ 

INCP 
LAL 

HL 
OS 
POP 
POP 



SET OPTIONS • 00 BLANKS A l«(AIT ON DISPLAY 
74<8 + BL<-5 WRAPPED AROUND* USING 12K CARDS 

MTMSG64 

DISPLAY SO CHANGE THE MESSAGE 

SM8T*SMSTL+UMSTL AND START MEMORY SIZE TEST FROM THERE 

MOVE SIZE START TO L 

GET MEMORY POINTER 
AND KEEP IT THERE 
SAVE THE TABLE POINTER 

(CLEAR CARRY) 

UPDATE THE 'K» COUNTER IN FOUR'S 

WILL NOT SET CARRY UNLESS CROSS 100K 

DONE FOR COSMETIC REASONS ONLY 



OE 
DE 
HL 
MTINC+I 

2 
'0' 

MT8IZLP0 
f I 

OE 

HL 

8MST>8 

HL 

SMST+e 

MTSIZIT 

1 



0377 

BCi0 
8C,0 

MTSIZLP 

HL 

MERX 

SVMEMP+l 

DE,HL 

DC 



(SAFETY, DON'T TRUST MEMORY) 
TRY THE NEXT STL ENTRY 
MINIMAL SIZE AT 24K 



LOAD NON-ZERO IN SOME MEMORY 

TO SFE IF IT IS THERE 

(X-REG IS ZERO FROM ABOVE) 
IF ZERO, NOT FOUND ANY YET 



CORRECT POINTER TO FIRST MISSING SECTOR 



SET THE VECTOR FOR THE MEMORY TEST 

DON'T NEED THE DISPLAY POINTER 
RESTORE INCREMENT SIZE 



OATAPQINT CONFingNTlAL INFORMATION m SEE PAGE 1 
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l80PIMi 


»CR/TXT 


1 001 1 










leiilt 


177211 








If'SA 










I^IS.L 










10411 










105,1. 










106,1 










l«7,l 










laaU 


177211 


024 


m4 




1819,1- 










1!0,L 


177213 


074 


227 




IIUL 


177215 


100 


275 


376 


ll2lL 










113,L 
ll4lL 


177220 


074 


226 




177222 


006 


227 




115,1. 


177224 


150 


275 


376 


116,L 










U7lL 










1181L 


177227 


174 


070 




H91L 


177231 


066 


231 


056 363 


120, t 


177235 


026 


002 




121, U 
122,1. 
12311. 


177237 


077 






17724P 


250 






177241 


310 






124. L 


177242 


320 






l25lL 


177243 


330 






126.1. 


177244 


340 






1271L, 


177245 


056 


320 




128.1 


177247 


360 






189;L 


17725(« 


076 


040 




130,1. 










1311L 


177252 


021 






132,L 
133, L 


177253 


117 


024 


001 


177256 


110 


252 


376 


134. L 

isslu 










177261 


174 


060 




136,1 


177263 


066 


231 


056 363 


137,L 


177267 


026 


322 




138, L 
139, L 


177271 


062 


077 




177273 


?I06 


225 




140*L 










141, L 


177275 


076 


000 




142,1 
143,L 


177277 


117 


200 




177301 


360 






144, L 


177302 


056 


363 




145,L 
1461U 


177304 


026 


004 




177306 


077 







MACRO-PROCESSOR SYSTEM MACRO ROM CODE ^ HSP/HJS - 78JU120 11144 
- MOVI MACROfROM MEMORY TEST • 



MTMAINLP 

I MAIN LOOP OF THE MEMORY TEST EXECUTED PER MEMORY BLOCK 

* HERE, A m ADORESS+1 OF LAST ENTRY IN STL TABLE THAT SHO^S MEMORY 



MTMNBLK 



MTMSP0 



MTMNXT 



8U 

CP 
JFC 

CP 
LA 
JTZ 



PUSH 

HL 

IC 

STL 

XRA 

LBA 

ICA 

UDA 

UEA 

LH 

LL.A 

LX 

ST 

SUX 

JEZ 

POP 

HL 

UC 

STLOC 

LA 

LX 

ADAX 

LLA 

LH 

LC 

STL 



MAXSTL8 

UMST 
MTMNXT 

UMSTwl 

UMST 

MTMNXT 



OE 

SMST-^MAXSTLS 

SMSTL 



BACK UP STL ENTRIES FOR NEXT BLOCK OF TABL 
IF USED MAXSTL8»1 WILL GENERATE AN OVERLAP 
REACHED THE BEGINNING OF THE NORMAL BLOCK? 
NOi aUST ANOTHER SECTION 

BACKED UP INTO SPECIAL AREA? 

IF BACKUP WOULD CAUSE SKIP OF 12»15K PHY8 

DO A SPECIAL PASS TO GET IT 

REACHED SPECIAL LAST STL SECTION 
SAVE ADDRESS INCREMENT SIZE 

POINT TO FIRST UNUSED SECTOR 
THAT AVAILABLE IN SPECIAL PASS 



0150000>8 

0170000-0150000>8 COUNT BLOCKS OF 256 

TO BE MOVED TO SAFE PLACE 
1 

MTMSP0 

OE RESTORE DE FROM OLD AREA (SAFER?) 

SMST+MAXSTLS MOVE SECTOR TABLES FOR SPECIAL AREA 
CSEOSP8F>8.ANO'.0360) ♦SMSTL 

THAT USED IN SPECIAL PASS 

SMST 

MOVE THE STL BLOCK «* TO THE X»REGISTER 

8MST>8 POINT TO THE STL TABLE 

MAXSTLS 

WILL NOW WORK ON THOSE SECTORS 
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1805IMACR/TXT 




M7lL 












MelL 


177307 


106 


li2 


373 




MSjl, 


177312 


160 


366 


377 




1S0.L 












isilu 


177315 


250 








192, U 


177316 


310 








177317 


320 








i54.|. 


177320 


066 


376 


056 


8)77 




177324 


111 


027 






177326 


117 


(»35 






157, U 


I7733fl 


im 


324 


376 




156, U 












159, L 


177333 


026 


24i 


016 


377 


160,1 


177337 


066 


mx 


056 


357 


161,1 


177343 


HI 


027 






162,L 


17734S 


310 








l«3,t 












I64;i 


177346 


026 


mi 






165,1 


1773551 


360 








166, L 


177351 


350 








i«7;l 












leslu 

1«9,U 






















170,1 












171, t 












172.L 













OATAPOINT CONFIDENTIAL INFORMATION • SEE PAGE 1 

MACRO^PROCESSOR SYSTEM MACRO ROM CODE • HSP/HJS 
• MOVI MACRO*ROM MEMORY TEST • 



78JUU20 in 44 





CAIL 


DQSF60N 




JTS 


MTEND 


i 


XRA 
LiA 
LCA 






HL 


MAXSZ-2 


HTMNXB 


OS 


BC.HL 




DECP 


HL.2 




JFC 


MTMNX0 


• 


9C 


MERPRF 




HL 


SVMEHP+l 




08 


BCiHL 




LBA 




MFNXZ 


LC 


1 


MFNXB 


LLA 
LHA 





SHOULD THE MEMORY TEST BE ENDED? 
YES, JUST ENO IT HERE 

#* START MEMORY TEST PHASE ** 



INITIALLY, THE MEMORY MUST BE ZERO 



SET AN ADDRESS FOR PARITY ERRORS IN MEMORY 



NOWl HL, », AND A ARE ZERO 

C IS INITIALIZED TO FIRST BIT TO TEST 
X IS STL TABLE POINTER 
DE IS INCREMENT 



( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

{ 

( 

( 

( 

( 

{ 

( 

( 

( 



r 
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I73lt 


l74lL 


175. U 


176'l 


177^1. 


17811 
179.1 


180' L 
l8Ul 


182U 


l83pU 


184,1 


185.U 


186. L 


187, L 


188, L 


189,L 


198, L 


191.1. 


192'(. 


I93k 


194'l. 


19511 


196,L 


197-L 


198,1 


199.1, 


zeialt. 


201. L 


2ei2,L 


203,1 


204,U 


205'L 


206,L 


207lL 


208. L 


209*U 


210. U 


21llL 


212,1 


213. L 


214l|. 


215, L 


2ielu 


ai7ii. 


218, L 


219, L 


280. L 



1800MACR/TXT 



177352 



177352 
177353 
177354 
177357 
177360 
177361 
177362 

177365 
177367 

177371 
177374 
177377 
177400 
1774«3 
177405 
177410 
177412 

177415 
I774i6 
177420 
177422 
177425 
177426 
177430 



307 
271 
112 
252 
370 
277 
112 

176 
115 
115 
140 
015 
115 
115 

110 
174 

110 

250 

111 

062 

110 
153 

lU 

160 



OATAPOINT CONFIDENTIAL INFORMATION • SEE PAGE I 

MACROwPROCESSOR SYSTEM MACRO ROM CODE - HSP/HJS • 78JUU20 11144 
- HOVI MACRO-ROM MEMORY TEST » 

MFWDUP 

ASCENniNG THROUGH THE MEMORY PART OF THE MEMORY TEST 
NOTEJ 

FORWARD ADDRESS SEQUENCE IS: 



1 « 2 f 3 1 



NOTE! 



m2, '•I 



tACTUALLY IN 'OE' STEPS) 



IT ALWAYS STARTS AT ZERO AND ENDS WHEN REACHS 'DE' WITH OVERFLOW 



INTERNALLY* 
ALPHA A 
B 
C 

DE 
HL 



BETA 



237 377 



237 377 



2^4 
213 
074 

352 

044 
273 
352 
276 
352 



MFWONXT 



100 
376 

077 

376 
376 



252 

202 
350 

261 
346 



376 



376 



HL 

n 

LAM 
CP8 
CFZ 
XRC 
LMA 
CPM 
CFZ 

ADEL 

ACOH 

CPH 

JTC 

INCP 

NDM 

CPDH 

JFZ 

CPLE 

JFZ 

XRA 

XRCB 

ADCC 

JFZ 

EX 

0R8R 

JTS 



WORK REGISTER 

EXPECTED DATA 

BIT UNDER TEST 

ADDRESS INCREMENT 

CURRENT ADDRESS BEING TESTED 

STL SEGMENT BEING TESTED 

PASS COUNTER 

ADDRESS ERROR DISPLAY POINTER (HORIZ POSN) 



HERONG 



MERONG 



MAX8Z»8 

MFWOLP 

HL 

MAXSZ-U8 

MFWOLP 

MFWDLP 



MFNX9 
CLICK 

MFNXZ 



GET THE DATA (CAN CREATE PARITY FAULT) 

WRONG, DATA CHANGED 
SET BIT BEING TESTED 

STILL SETt CPARITY FAULT POSSIBLE) 
NO, DATA CHANGED RATHER QUICKLY 

ERRORS CONTINUE FROM HERE 

UPDATE HL USING DE 

WRAP AROUND? 

NO, GO BACK FOR MORE 

CARRY WRAPAROUND FROM MSB 

AND KEEP THE ADDRESS IN RANGE 

MSB DOESN'T MATCH STEP SIZE, NOT THE ENO 

ISB DOESNIT MATCH STEP SIZE, NOT THE END 

RESET THE ADDRESS TO ZERO 
SET THE BIT FOR THE NEXT SUB-PASS 
SHIFT FOR NEXT BIT (SAFER THAN SHIFT) 
CONTINUE TILL ALL BITS 



GO FROM i TO I AND BACK TO ZERO 
(SAFER THAN JFZ) 



( 
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78JULg0 UI44 



022 
062 
301 
074 



2Zl'l 

222. U 177433 

22311 

224^1. 

226U 

227, U 

228. L 177433 

229'U 177437 

230, L 177443 

231. L 

232U 17744S 

233,t 177447 

234, L 177451 

235,L 177452 

236, L 177454 

237, U 

238, L 177457 

239, U 177461 

240,L 177465 

241.1 

242*L 177466 

243,L 177467 

244,1. 177478) 

245. t 177471 

246*1. 177472 

247, L 177473 

248, L 177475 

249'l 177476 

250, U 177500 

251, L I775t?l 

252,U 177584 

253,U 177507 

254. L 177512 

255U 

256, L 177514 

29711, 177514 

258,1. I7752i 

259,U 177524 

260, U 

261,1 177526 

26211 177527 

26311, l7753Pt 

264lu 177531 

265.L 177532 

266lL 177534 

267, L 177540 

268,1 177543 

269,1 177545 

270;u 177546 

271, U 

272, L 177547 3^3 



026 201 016 377 
066 001 056 357 
HI 027 



070 



227 

211 



174 070 

046 224 
027 



250 
310 
320 
330 
340 
056 
360 
076 
021 
117 
110 
106 
174 



376 



)36 377 



320 

040 

024 
100 

003 
060 



001 
377 
373 



MTMDON 

A MAJOR PASS HAS COMPLETED, 

CONTINUE TILL ALL MEMORY BLOCKS DONE 

THEN INCREMENT PASS COUNTER. SET NEW ADDRESS INCREMENT AND DO NEXT 



ANY MEMORY ERROR MERE IS FATAL 

SET THE STL TASLE POINTER 

FROM THE X.RESISTER 
fJFC SAFER THAN JFZ) 
CONTINUE TILL ALL BLOCKS DONE 

SAVE ADDRESS INCREMENT 

IGNORE MEMORY FAULTS THAT HAPPEN HERE 

MOVE THE DISPLAY BUFFER, STACK SAVE AREA 
INTERRUPT VECTOR AND OTHER NECESSARY INFO 
BACK TO THE PHYSICAL MEMORY 
IT NORMALLY USES 

COUNT THE BLOCKS GOING BY 

RESTORE SECTOR TABLE & INTERRUPT VECTOR 



026 201 016 
066 001 056 
111 027 

020 

015 

315 

326 

066 006 

046 005 036 

106 160 372 

ill 020 

015 

030 



377 
357 



117 





8C 


jiMJm^ 




HL 


SVMEMP+l 




08 


8C,HL 


• 


PUSH 


XA 




POP 


8C 




LAB 






CP 


UMST 




JFC 


MTMN8LK 


• 


PUSH 


OE 




OE 


MTDONMPF 




08 


OE.HL 


• 


XRA 
LBA 
LCA 
LOA 
LEA 






LH 


0150000>8 




LLA 






LX 


01700i0»0l50000>8 


MTMD0 


BT 






SUX 


1 




JFE 


MTMO0 




CALL 


MT8ETUP 




POP 


OE 


MSTART 








8C 


MERX. 




HL 


SVMEMP+1 




08 


SC»HL 


t 


BETA 






INCP 


HL 




LBH 






LCL 






LL 


6 




OE 


79<8*BL"6 




CALL 


DSPOCT 




9ETAL 






INCP 


HL 




ALPHA 





ANY MEMORY ERROR HERE IS FATAL 



UPDATE PASS COUNTER 



DISPLAY THE NEW PASS COUNTER VALUE 
CDESTROYS MOST REGISTERS) 

Rf'-LOAD BETA REGS, RESTORES WHAT DESTROYED 



LAO 
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MACR0*PR0CE8SCR SYSTEM MACRO ROM CODE - H8P/HJS * 7ejUL20 11144 
• MOVI MACRO-ROM MEMORY TEST •• 



273, L 
874. L 
275,L 
27S.U 
277ll 
2^8lL 
279, L 

280A 
2«iJl 
2S2aL 
2«3,L 
284, L 



285,U 
286^1 
287. L 



1775551 


174 


2^4 


177552 


210 




177553 


004 


zm 


177555 


174 


014 


177560 


044 


077 


177562 


330 




177563 


350 




177564 


364 




177565 


035 




177566 


140 


2ffll 


177571 


176 


244 


177573 


115 


243 


177575 


035 




177576 


140 


m? 



000 



377 



376 



AOEf 




ACA 




AD 


MAXSZf-l.X 


ACE 


PI 


NO 


MAXSZwl»8 


LDA 




LHA 




LLE 




OEGP 


HL 


JTC 

NOEL 


,MERX 


NODH 




DECP 


HL 


JTC 


MTSIZE 



SET NEXT ASCENDING STEP SIZE 
MAXSZf-l,X0R,t-l)>8 GENERATE CORRECT NUMiER FOR CARRY AROUND 



DOUBLE CHECK THAT ONLY ONE ilT SET 
HL SHOULD BECOME (POWER OF 25 • 1 
CATCH DE BECOMING ZERO AS A FATAL El^ROR 

SHOULD RESULT IN ZERO IF WAS POJ^ER OF 2 
SHOULD SFT CARRY IF WAS ZERO 
OK, RE^CALCULATE MEMORY SIZE FOR NEXT PASS 
♦* ERROR, WAS NOT POWER OF 2 •♦ 



( 
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888. L 
289*1. 

2<ji;l 

292, U 
293.L 
294,1. 
295. L 
296lt 
297, U 
298,1- 
299,1 
300.1. 
3illL 
3«»2,U 
3a»3,L 
3«i4^L 
3Pi5,l 
3«6,L 
307. L 

309'U 
310:u 
311, U 
312,1 
313U 
314,1. 
315. U 
316,1 
317jL 
w 1 9, L 
319.1 
320lL 
321. L 
322lL 
323,1 
324, L 
325. L 
326;u 
327, L 
328,1 
32911. 
330Jl 
331, U 
332,L 
333.1. 
334U 
335. L 
336lL 
337;u 
33811 
339ll» 
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OATAPOINT CONFIDENTIAL IhJFORHATION - SEE PAGE 1 

MACRO-PROCESSnR SYSTEM MACRO ROM CODE ^ HSP/HJS 
f. MOVI MACRO-ROM MEMORY TEST m 



7ajUU20 11M4 



177601 151 



177637 070 



177640 
177641 
177643 
177644 
177646 
177647 
177691 
177652 
177654 

177655 
177656 
177660 
177662 
177666 
177670 

177673 
177674 
177675 
177677 
177701 
177702 
177703 
177705 
177707 



070 

022 070 
020 

062 0fii 
301 

062 060 

070 

056 363 

360 



301 
044 
111 
012 
074 

100 



360 
250 
012 
004 
201 



ERROR PROCESSING ROUTINES 



MERX 



177602 


106 


003 


373 


177605 


106 


242 


372 


1776l«? 


066 


252 




177612 


104 


055 


362 


177615 


174 


060 




177617 


174 


060 




177621 


104 


173 


376 


177624 


3«2 






177625 


062 


060 




177627 


062 


060 




177631 


320 






177632 


250 






177633 


310 






177634 


104 


100 


377 



EX 

CALL 
CALL 
LL 
JMP 



BEEP 

MTSETUP 
SSTATE 
MERXMSG 
ERROR 



EXCEPTIONAL MEMORY ERROR THAT DESTROYED 
OPERATION OF THE MEMORY TEST HAPPENED 

RESTORE STATE TO GOOD VALUES (I HOPE) 
POINT TO MESSAGE (WITH OTHER MESSAGES) 



SKIP P-COUNTER 
AND ERROR LOCATION 
BUT KEEP TRYING 

INTO A SAFE PLACE 

GET WASTED INFO OUT OF THE WAY 



MTSIZMPF POP 

POP 

JMP 
* 
HTDONMPF LAC 

POP 

POP 

LCA 

XRA 

LBA 

JMP 
* 
, ERROR IN DATA OR A PARITY FAULT WHILE ACTUALLY DOING MEHQRY TEST OPERATIONS 



OE 
DE 
MTSIZIT 



8C 
8C 



MTMO0 



AND TRY TO RECOVER 



MERONG 



MERPRF 



012 012 
377 



017 
307 

044 360 
111 260 
307 
002 

044 003 
004 060 
022 070 



PUSH 

PUSH 

PUSH 

BETA 

POP 

LAB 

POP 

PUSH 

LH 

LLA 

LAB 

NO 

XRAB 

SRN 

CP 

JFC 

INCP 

LAM 

NO 

ORAB 

LAM 

8LC 

ND 

AD 

PUSH 



HL 
XA 

ic 

BC 
HL 
8M8T>8 



0360 



MAXSTLS 
HERX 




3 

»0' 

XA 



WRONG DATA, CORRECT STACK TO MATCH PARITY 

COPY REAL ADDRESS OVER TO BETA REGS 
AND THE STL TABLE POINTER 



NOW HAVE TABLE POINTER (FROM ALPHA • X) 
AND ADDRESS TO CALCULATE PHYSICAL ADDRESS 
SAVE PASS COUNTER 

GET STL TABLE POINTER 



GET STL INDEX BITS 

CLEAR THEM OUT OF THE ADDRESS 



GOT ERROR OUTSIDE OF MEMORY BEING TESTED? 

GET STL ENTRY THAT IN ERROR AREA 
GENERATED PHYSICAL ADDRESS CLS15 BITS) 

GET BITS 16 & 17 OF PHYSICAL ADDRESS 
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ism^i 


kCf?/TXT 


340',L 


1777U 


046 


013 




34lU 


177713 


066 


005 




342,1 


177715 


106 


160 


372 


34311 


177725^ 


022 


060 




344,1. 


177722 


37i 






345:l 
346, L 










177723 


113 


004 


015 


347,1. 


177726 


113 


074 


107 


348, L 


177731 


140 


347 


377 


349. L 










3S0'l, 
351, t 


177734 


106 


102 


373 


177737 


170 


334 


377 


352lL 


177742 


106 


345 


373 


353,t 
354,L 


177745 


036 


007 












355,1 


177747 


060 






356,1 


17775PI 


062 


060 




357:u 
358, L 


177752 


062 


060 




177754 


030 






3S9;l 


177755 


115 


B44 


077 


360lL 
36i;i 










177769 


301 






36211 


177761 


252 






363,U 


177762 


370 






364,L 
365,1. 
366, L 


177763 


104 


365 


376 










177766 


106 


003 


373 


367, L 


177771 


104 


127 


367 


l«l. 











OATAPOINT CONFIDENTIAL INFORMATION - SEE PAQE I 

MACRO-PROCESSOR SYSTEM MACRO ROM CODE * HSP/HJS » 78JUL20 
m MOVI MACROwROM MEMORY TEST m 



11144 



MERR0 



MERRl 



MTEND 



Li. 


SL 


LL 


5 


CALL 


OSPOCT 


POP 


XA 


LMA 




ADD 


5*8 


CPO 


SewS'*! 


JTC 


MERRl 


CALL 


DOSF60N 


JTP 


MERR0 


CALL 


DD8P67 


LO 


8-1 


POP 


HL 


POP 


BC 


POP 


BC 


ALPHA 




NOH 


MAXSZ-1>8 


LA8 




XRC 




LMA 




JMP 


MFWDNXT 


CALL 


MTSETUP 


JMP 


0E8U5 



OUTPUT 5 LS DIGITS OF THE PHYSICAL ADDRESS 



AND THE MS DIGIT ALSO 

5 FOR DSPOCT & 8 FOR NEXT P08N 
GO TO NEXT DISPLAY POSITION 



WAIT FOR THE DISPLAY KEY TO 8E UP 

ROLL UP 

POSITION FOR NEXT ERROR ADDRESS 

RESTORE PASS COUNTER 

IGNORE P-COUNTER 

DISCARD LOCATION OF FAULT 

GO BACK TO NORMAL REGISTERS 

AFTER BEING IN MEMORY, MAKE IT IN RANGE 

AS A MINIIMAL ASSURANCE OF ACCURACY 



SET MEMORY LOCATION TO NHAT IT SHOULD SE 
AND RETURN FROM THE ERROR 

RESTORE THE SECTOR TABLE TO NORMAL STATE 



( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
< 
( 
( 
( 
( 
( 
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IMl 


18S, 
186, 


IB7, 


188. 


1891 


190, 


191. 


1921 


193y 


194. 


195, 


196^ 


197, 


198, 


199. 



( 
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DATAPOINT CONFIDENTIAL INFORMATION - SEE PAGE I 

MACROwPPOCESSOR SYSTEM MACRO ROM CODE • H8P/HJS 
- END OF laeig MACRO ROM • 



7ftJU|„20 11*44 



IFNE 

ERR 

XIF 



i>8»ai77777>8 (CHECK IF LOAOEO TO LAST PAGE) 
MACRO ROM NOT CORRECT SIZE, TOO BIG OR TOO SMALL 



177774 


i§0 


177775 


md fii0 


177777 


011 



, PAD TO THE END OF THE PAGE WITH ZEROS AND PUT THE VERSION OF THE MACRO 

, ROM IN THE LAST BYTE IN THE PAGE AND 
, THE ROM TYPE IN THE SECONO LAST BYTE 

LIST «G 

RPT -$-4, AND, 255 

DC 000 

DC ROMTYPE 

DA *ROMCRC 

SMACVRS* DC SMACROM 



17000PI 



END 



MACROH 



PA6E ©9 


18 


i73ll7 


SSBUFID 


173135 


SSOOIO 


173133 


SSOOIOOR 


173310 


$$oosr»Rv 


178773 


SSONUINE 


173071 


SSREAD 


173238 


SSRESTOe 


172«S0l 


SfSEEK 


172727 


SSSTATUS 


172652 


fSSTEP 


173BI25 


SSWRITE 


ifif07 


$8P 


170212 


SSUFIO 


170^63 


SCHARLOD 


000207 


$CK 


156600 


SOATAS 


000044 


SDATAL 


156622 


SOEVAOR 


154000 


$0I8K«UF 


170074 


$OISP008 


170071 


SDISPLAY 


170207 


$0010 


173221 


SPOIOERR 


173155 


SDOIOW 


173211 


snoioxTT 


173343 


SOO8OP0 


170204 


snoSDRiv 


156000 


$DOBE%J 


156623 


JDRVNIIM 


156624 


SDRVTA8 


000007 


$nRVT8LN 


173U3 


SOSKERR 


156616 


SOSKRFGS 


173411 


SDSKRESR 


173371 


lOSKSAVR 


170066 


SDSPINIT 


000021 


SEEOF 


000022 


SEEOL 


000015 


fEL 


000003 


$ES 


000033 


$F 


170220 


SF08TAT 


000011 


$H 


000211 


SNA 


000224 


$H0 


000223 


SHU 


170060 


SK8D8INI 


170055 


SKEVCHAR 


156617 


SLOGDRV 


000011 


SMACROM 


000040 


JMACVER 



1800MACR/TXT 



*23eii 

♦28111 
*279n 

♦39HI 

♦13611 

♦ 2071 1 
♦31911 

♦ 611 
♦10011 

♦ 53il 
♦162II 
♦639iK 

♦ 1 1 4 1 F 

♦ 77IF 
♦650iK 

♦ 106 

♦ 129 

♦ 119 
36411 

♦ 97 

♦ 80IF 

♦ 79IF 
♦113IF 
♦315II 
♦29111 
♦30811 
♦42511 

♦ HIIF 
♦99 

♦ 120 

♦ 122 

♦ 126 
♦23411 

♦ 110 
♦454II 
♦44011 

♦ 78iF 
♦643IK 
♦644IK 
♦642IK 
♦638IK 
♦e47lK 
♦U6iF 
♦640fK 
♦651IK 
♦657fK 
♦656iK 

♦75IF 

♦ 74iF 

♦ 112 

♦ 4 

♦ 5 



114IF 
113«F 

226H 
lUlF 

109fF 

107IF 

U0IF 
105JF 
USiF 
106:f 

108IF 
167iH 



38IH 
129 
470II 

73U 

38311 

80IG 



289II 
30311 
317II 
41711 



7011 
41511 
127 
196II 
19311 
44911 

1911 

796IK 
38iH 
799fK 
237IF 
70giK 

783iK 

785iK 

38iH 

789tK 



5616 
844ij 
847U 



DATAPOINT CONFIDENTIAL INFORMATION .- SEC PAGE 1 

MACR0-PR0CE880R SYSTEM MACRO ROM CODE •" HSP/HJS - 78JUU20 !n44 

72IH 19511 



69»G 
71IG 

81tG 
74SG 
68tH 
15MI 
45JI 

797iK 



798IK 
4516 

7911 
437n 



29611 



128II 
420 1 1 
627IF 
227JI 

198JI 

181II 



795IK 

38IH 



44tH 
US'lH 
155 IN 

45 IH 
ISl'lH 

34311 



71IH U4JI 
1 1 5 i I 12681 



28611 

426 1 1 

5816 

407*11 

22211 



49IH 842tJ 



i49SI 256«I 451JI 467II 469U 

130«I 183*1 230II 257II 285II 292»I 



363II 



436 U 

408 n 
445Sf 

33i:i 



419II 
45811 
405»I 



1011 

49iH 167IH 



853IJ 800tK 



1021 



iia 



9816 
845IJ 



41itl 
846ij 



790JK 



42511 
197 



PAGE IP^ 


18 


177777 


SMACVRS 


0^0219 


SNt. 


090303 


SMS 


000233 


$0 


000200 


101 


170l7fl 


SONtINf 


000100 


SOS 


000040 


SOW 


000024 


SRD 


170170 


SREAO 


170201 


SRgSTORE 


173246 


SRESTHRL 


173233 


SRESTORX 


000023 


$RU 


156605 


iSAVBC 


1S6603 


SSAVXA 


156620 


SSECTOR 


170162 


SSEEK 


172637 


fSECKLOP 


172620 


S8EEK0K 


172633 


SSEEKOUT 


170215 


SSTATUS 


170165 


SSTEP 


172667 


ISTEPWTL 


172722 


SSTEPXIT 


156621 


STRACK 


000013 


$v 


000213 


$VA 


170173 


SWRITE 


000000 


A$L 


000000 


A$N 


000140 


AiRFC 


000150 


ASRFE 


000170 


ASRPP 


000160 


ASRFS 


000150 


AfRFZ 


000100 


AtRTC 


000110 


ASRTE 


000130 


ASRTP 


000120 


ASRTS 


000110 


AIRT2 


174610 


AOROEl 


174600 


ADRDEV 


000000 


ASCII 


170561 


AVIOUH 


171020 


AVIOLT 


000001 


80 


000002 


il 


000004 


82 


000010 


B3 
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♦ 197 

♦653IK 

#649 IK 

709iK 

♦ 658 IK 
♦660IK 
♦109IF 
♦661IK 
♦662iK 
♦646iK 

♦ 107 IF 
♦l}0iF 
♦342II 
♦33311 
♦645IK 

♦ 109 

♦ 108 

♦ 116 
♦105IF 

♦ 4Sil 

♦ 3011 

♦ 4011 

♦llSiF 
♦106IF 

♦ 7711 

♦ 9611 

♦ 117 
♦641tK 
♦652iK 
♦108IF 

♦ 23 »E 

♦ 22IE 

♦ 30iE 

♦ 32IE 

♦ 34 IE 

♦ 33 IE 

♦ 31IE 

♦ 25IE 

♦ 27IE 

♦ 29IE 

♦ 28IE 

♦ 26IE 
♦669iJ 
♦659IJ 

♦ 23, 
♦230IF 
♦312IF 

♦eic 

167^0 
♦7IC 

♦ 8'lC 

♦ 9IC 



787IK 
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